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REM 1 


IDENTIFICATION 


PRODUCT CODE: AC-E499A-MC 

PRODUCT NAME: CZTUSAO TMO3/TU4S5 DRIVE FUNCTION TIMER 
DATE CREATED: 25 MAY 1978 

MAINTAINER: COMPUTER SPECIAL SYSTEMS 

AUTHOR: CSS DIAGNOSTICS 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1975, 1978 BY DIGITAL EQUIPMENT CORPORATION 
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ABSTR 


ABSTRACT 


PROGRAM CZTUSAO MEASURES THE TIME REQUIRED AND GAP 
SIZES PRODUCED BY THE TMO3/TU4S MAGTAPE 
DRIVE/SLAVE. 


THE TEST WILL CHECK BOTH THE LOGIC GENERATED 
few DELAYS, AND THE DISTANCES TRAVELED BY THE 


ACTUAL TAPE SPEED MAY ALSO BE CHECKED BY USING 
THE SPEED TESTS WITH AN 800 BPI SKEW TAPE. 


DEVICE ERRORS ARE CHECKED AND PRINTED AS THEY 
OCCUR. IF AN ERROR IS DATA RELATED(PARITY; ETC) 
THEY ARE PRINTED AS SOFT ERRORS. 


IF A TIME CHECK IS OUT OF RANGE, IT IS PRINTED 
AS AN OUT OF RANGE ERROR. 


PAGE 3 
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CHAPTER 1 
REQUIREMENTS 


PDP-11 FAMILY CENTRAL PROCESSOR WITH 4K MEMORY WITH UP TO 64 TMO3/TU45 
CONTROLLER/MAGTAPE STATIONS. 


1.1 OPTIONAL EQUIPMENT USED 
1. NONE 


STORAGE 
PROGRAM LOADS AND RUNS IN THE FIRST 4K OF MEMORY. 


PRELIMINARY PROGRAMS (TO ASSURE HARDWARE OPERATION) 


CZTUOA CONTROL LOGIC TEST(PART 1) 
CZTUPAO BASIC FUNCTION TEST 
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CHAPTER 2 
LOADING AND STARTING PROCEDURE 


2.0 LOAD & START PROCEDURE: 


LOAD PROGRAM USING THE ABSOLUTE LOADER 
LOAD ADDRESS = 200 

SET OPERATING SWITCHES SEE CHAPT 3 SWITCH SETTINGS 
PRESS START 


THE PROGRAM WILL THEN REQUEST THE FIRST BUS ADDRESS OF THE RHXX 
CONTROLLER, TMO3 DRIVES TO BE TESTED, TU45 SLAVES TO BE TESTED, 
AND IF SPEED TESTS ARE TO BE RUN. IN ADDITON TO EACH REQUEST A 
DEFAULT ANSWER WILL BE TYPED. TO INVOKE THE DEFAULT TYPE A 
CARRIAGE RETURN. 


THE REQUESTS & THEIR DEFAULTS ARE: 


TYPE FIRST ADDRESS OF CONTROLLER:172440 
TYPE TMO3 DRIVE #'S TO BE TESTED:ALL 
FOR TMO3 DRIVE X-TYPE SLAVE #'S TO BE TESTED:ALL 
SPEED TESTS ?(YES/NO):NO 
SLAVE #°S ARE NOT REUESTED IF DEFAULT TO DRIVE REQUEST 
IS INVOKED. 


If MORE THAN 1 DRIVE OR SLAVE IS TO BE TESTED, TYPE 
BETWEEN EACH DRIVE OR SLAVE # TO BE TESTED. 


SPEED TESTS CAN & WILL ONLY BE RUN BY ANSWERING YES TO THE REQUEST. 

TYPE CONTROL U ( U) TO DELETE LINE TYPED;TYPE ‘RUBOUT' TO DELETE LAST 
CHARACTER(S). 

PROGRAM WILL REPORT ERRORS, AND END OF PASS. 


2.1 RESTART PROCEDURE 


SEQ 0005 
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SEQ 0006 C2) 
THE PROGRAM MAY BE RESTARTED USING START UP PARAMETERS AT ADDRESS 210. 


THE PROGRAM MAY ALSO BE RESTARTED BY TYPING A CONTROL C ( C). 
A C RESTART WILL REQUEST PARAMETERS. 


NOTE: AFTER RESTARTING THE SWITCH REGISTER SHOULD 
BE SET TO PROGRAM SWITCH SETTINGS. IF 210 
IS LEFT AS THE SWITCH SETTING THE PROGRAM 
WILL SELECT & RUN TEST 10 ONLY. SEE SWITCH 
SETTINGS FOR EXPLANATION. 


2.2 AUTOMATIC MODE OPERATION 


IF THE PROGRAM IS LOADED AND RUN IN AUTOMATIC (CHAIN) MODE 

DEFAULT RESPONSES TO OPERATOR REQUESTS ARE USED, AND ALL AVAIL- 
ABLE TMO3/TU45 COMBINATIONS ARE TESTED. ADDITIONALLY THE SOFTWARE 
SWR IS INVOKED WITH A SWITCH SETTING OF 100000 IF LOADED VIA ACT11. 
NO OPERATOR INTERVENTION IS REQUIRED 


** EXCEPTION: IF LOADED VIA TMDP TMO3 DRIVE 0 TU45 SLAVE O IS 
NOT TESTED. 
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CHAPTER 3 
SWITCH SETTINGS 


CONTROL : 


1) CONTROL G < G>; 
SELECTS THE SOFTWARE SWR AND ALLOWS NEW SWITCH SETTINGS. 
THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= 
WHERE: XXXXXX IS THE OCTAL CONTENTS OF THE SOFTWARE SWR. 


AFTER THE **NEW="" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 
A) TYPE A NUMBER TO BE LOADED INTO THE SOFTWARE SWR. 
B) IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


CONTROL A < A>; 
ALTERNATES USAGE OF THE SWR BETWEEN HARDWARE & SOFTWARE. 


CONTROL C < (>; 
RESTARTS PROGRAM AT 200 


CONTROL U < UD>; 
DELETES ALL CHARACTERS TYPED IN RESPONSE TO A REQUEST. 
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Sw15 HALT ON ERROR THIS SWITCH WHEN SET WILL HALT THE 
(100000) PROCESSOR WHEN AN ERROR IS DETECTED. 


THE PC+#2 AND PSW AT THE TIME OF THE 
ERROR IS STORED ON THE STACK. PRESSING 
CONTINUE WILL CAUSE THE ERROR TO BE 
TYPED (CIF SELECTED) AND FURTHER TESTING 
RESUMED. 


Sw14 LOOP SUBTEST THIS SWITCH WHEN SET LOOPS THE CURRENT 
(040000) SUBTEST REGARDLESS OF ERROR CONDITION. 


SwW13 INHIBIT ERROR THIS SWITCH WHEN SET INHIBITS ERROR 
(020000) TYPEOUT TYPEOUT. 


Sw11 INHIBIT SUB- THIS SWITCH WHEN SET CAUSES EACH SUBTEST 
(004000) TEST ITERATION TO BE EXECUTED ONLY ONCE. 


$w10 INHIBIT THIS SWITCH WHEN SET WILL INHIBIT THE 
(002000) FUNCTION TIME PRINTING OF THE FUNCTION TIMES. (SEE 
PUBLICATION CHAPTER 8.) 


Sw09 RING BELL THIS SWITCH WHEN SET WILL RING THE BELL 
(001000) ON ERROR ON THE TTY WHEN AN ERROR IS DETECTED. 


$w08 PRINT THIS SWITCH WHEN SET WILL PRINT A 
(000900) TIME TIME LINE AFTER EACH ITERATION. 


Sw06 CONTINUOUS THIS SWITCH WHEN SET WILL CAUSE THE 
(000100) CYCLE PROGRAM TO RUN CONTINUOUSLY UNTIL 
STOPPED BY THE OPERATOR. 


SwW5-0 TEST SELECT RUN SUBTEST SELECTED 


NOTE: A TEST CAN ONLY BE SELECTED DURING STARTUP (OR RESTART). 
DO NOT INHIBIT SUBTEST ITERATIONS WHEN PROGRAM IS RUNNING. 
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CHAPTER 4 
ERRORS 


TWO TYPES OF ERRORS ARE DETECTED BY THIS PROGRAM, HARDWARE ERRORS AND 
INCORECT FUNCTION TIMES. 


4.1 ERROR TYPEOUT FORMAT (HARDWARE): DATA RELATED ERRORS (IE: PARITY ERROR) 
ARE PRINTED AS SOFT ERRORS AND HAVE NO 
EFFECT ON TIME. 


TEST # XXXXXX DEVICE ERROR 

CS1 WE BA FC CS2 DS ER1 

AAAAAA BBBBBB CCCCCC DDDDDD EEEEEE FFFFFF GGGGGG 
WHERE: 


XXXXXX = TEST NUMBER 
AAAAAA~IIIIII = CONTENTS OF TAPE REGISTER 172440-172454 


4.2 ERROR TYPEOUT FORMAT (FUNCTION TIME OUT OF RANGE) 
TEST # XXXX¥X OUT OF RANGE ERROR 
RANGE = <AAAAAA~BBBBBB> ACTUAL = CCCCCC 
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CHAPTER 5 
SUBROUTINE ABSTRACTS 


5.1 .SCOPE 
THE SCOPE ROUTINE IS CALLED BY THE SCOPE (EMT) INSTRUCTION AT THE 
thy OM EACH SUBTEST. THE .SCOPE ROUTINE PERFORMS THE FOLLOWING 
LOADS R5 WITH BASE ADDRESS 
TYPES TIME LINE <Sw08>=1 
PROVIDES CONTINUOUS LOOP <SW14> 
MOVES FUNCTION TIME INTO TABLE 
OUTPUTS LINE ITEM <SW10>=1 
DELAYS 350MS BEFORE STARTING TEST 
INIT'S DRIVE/SLAVE 
CLEARS THE ERROR FLAG (ERFLG) 
CHECK FOR CONTROL G ( G> 
THE ROUTINE MCNITORS SW14, SW11, Sw10, SWO8, AND SWO7. 
5.2 PUBLISH 
THE PUBLISH ROUTINE IS CALLED FROM THE SCOPE ROUTINE IF SW10 IS EQUAL 


TO 0 (PUBLISH TIME DOCUMENT). THE ROUTINE WILL PRINT A THE TIME 
RECORDED BY THE SUBTEST. 
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SUBROUTINE ABSTRACTS 


5.3 HLT 


THE HLT ROUTINE IS CALLED BY THE HLT (TRAP) INSTRUCTION WHEN AN ERROR 
IS DETECTED. A HLT (TRAP) INSTRUCTION FORMATS THE ERROR INFORMATION 
AS SHOWN IN SEC 4.1. A HLT+1 (TRAP+1) FORMATS THE ERROR AS SHOWN IN 


SEC 4.2. 
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CHAPTER 6 
MISCELLANEOUS 


6.1 STACK POINTER 
THE STACK POINTER IS INITAILLY SET TO 500. 


6.2 EXECUTION TIME 
WHEN SW11=1 (INHIBIT ITERATIONS) THE TIME REQUIRED IS 2 MIN. 
WHEN SW11=0 (ITERATE SUBTESTS) THE TIME REQUIRED IS 9 MIN. 
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CHAPTER 7 
PROGRAM DESCRIPTION 


7.1 SAMPLE TIME DOCUMENT 


TYPE FIRST ADDRESS OF CONTROLER:172440 
TYPE TMO3 DRIVE #*S TO BE TESTED:ALL 0 
FOR TMO3S DRIVE O- TYPE SLAVE #°S ‘0 BE TESTED:ALL 0 


TAPE SPEED TESTS ONLY? (YES/NO) :N 


RAAT AAAAAEAAAAAAAAAAARARAAARAAAAAAAAAARAAARAEAEAAAARARAAAAAAAAAAAAAEAAEE 


* TMO3 DRIVE FUNCTION TIMES- DRIVE # 0 SLAVE # 7 9 CHAN. SER. # 5009 


eee eneneneneneneneneneneneneneneanenenenee 


FUNCTION 
WRITE FROM BOT 
WRITE START 
WRITE SHUTDOWN 
WRITE SETTLEDOWN 
EAD FROM BOT 
START 
SHUTDOWN 
SETTLEDOWN 
REV START 
REV SHUTDOWN 
REV SETTLEDOWN 
AROUND DELAY F-R 
URN AROUND DELAY R-F 
GAP SIZE-STOP HALF 
GAP SIZE-START HALF 
GAP SIZE-INTERRECORD 
GAP CONSISANCY 
DATA TIME-8008P! 
DATA TIME-16008P1 
ERASE GAP TIME 
WRITE FILE MARK 


TIME (SPECIFICATION) 

RANGE =<063000-059000> 
RANGE =<004500-003700> 
RANGE =<003600-002600> 
RANGE =<007600-001400> 
RANGE =<009200-005200> 
RANGE =<001700-000900> 
RANGE =<001450-000350> 
RANGE =<007600-001400> 
RANGE =<001700-000900> 
RANGE =<001900-001500> 
RANGE =<007600-001400> 
RANGE =<008800-002800> 
RANGE =<008800-002800> 
RANGE =<007900-004500> 
RANGE=<008550-005250> 
RANGE =<006150-004450> 
RANGE =<007050-005350> 
RANGE =<012000-011000> 
RANGE =<012500-011500> 
RANGE =<049900-046900> 
RANGE =<051200-049200> 


TIME (ACTUAL) 


ACTUAL =061000 
ACTUAL=004100 
ACTUAL=003100 
ACTUAL=4500 

ACTUAL=007200 
ACTUAL=001300 
ACTUAL =000900 
ACTUAL =004500 
ACTUAL=001300 
ACTUAL=001700 
ACTUAL =004 500 
ACTUAL=005800 


ACTUAL =005300 
ACTUAL =006200 
ACTUAL=011500 
ACTUAL=012000 
ACTUAL =048400 
ACTUAL =050200 


ie eS 


COCCOCOCMOWUWOWOWOWOWOWOWOWOWOOOOOWNOONO 
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7.1.1 SAMPLE TIME DOCUMENT FOR TAPE SPEED TESTS 


TYPE FIRST ADDRESS OF CONTROLLER 172440: 

TYPE TMO3 DRIVE #'S TO BE TESTED:ALL 0 

FOR TMO3 DRIVE O- TYPE SLAVE #°S TO BE TESTED:ALL 7 
SPEED TESTS ONLY? (YES/NO):NO Y 


RKAKAAAAAAAAAAAAAAAAARAAAAAAAEAAAAARAAARAATAERAATAEARATERETERAEAEAEEEEE 


*TMOS DRIVE FUNCTION TIMES- DRIVE # 0 SLAVE # 7 9 CHAN. SER. # 5009 
* 


*FUNCTION TIME (SPECIFICATION) TIME (ACTUAL) 
*TAPE SPEED FWD RANGE =<011300-010300> ACTUAL=010800 
*TAPE SPEED REV RANGE =<011300-010300> ACTUAL=010800 
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7.2 


TEST NO./NAME 


1. WRITE FROM BOT 


WRITE START 


WRITE SHUTDOWN 


WRITE SETTLEDOWN 


READ 


READ 


READ 


- READ 


- READ 


- READ 


- READ 


- TURN 


- TURN 


FROM BOT 


START 


SHUTDOWN 


SETTLEDOWN 


REVERSE START 


REVERSE SHUTDOWN 


REVERSE SETTLEDOWN 


AROUND F-R 


AROUND R-F 


- GAP SIZE-STOP HALF 


. GAP SIZE-START HALF 


- GAP SIZE INTERRECORD 


eB 
13-JUN-78 13:49 PAGE 15 


PAGE 13 


TEST SEQUENCE WITH RELATED ADJUSTMENTS AND ASSOCIATED HARDWARE 


RELATED ADJUSTMENTS 


*NONE 


*FWRD/REV SPEED-START/STOP-RAMPS 


*SAME AS IN TEST 16 


*FWD/REV SPEED 


ASSOCIATED HARDWARE 


*M8928 ROM*M8903 ACCL 


*M8928 SETTLEDOWN ONE 


*M8928 ROM*M8903 ACCL 


*M8928 SETTLEDOWN ONE 


*M8928 ROM*M8903 ACCL 


*M8928 SETTLEDOWN ONE 


*M8928 ROM*M8903 ACCL 


SEQ 0015 
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21. GAP CONSISTENCY *SAME AS IN TEST 16 *WRITE CLOCK 


22. DATA TIME 800 BPI *NONE 
23. DATA TIME 1600 BPI 

24. ERASE GAP TIME 

25. WRITE FILE MARK 


26. TAPE SPEED-FORWARD *FWD SPEED *CAPSTAN SERVO LOOP 


27. TAPE SPEED-REVERSE *REVERSE SPEED *CAPSTAN SERVO LOOP 


weeeteNOTE: IF TIME PROBLEMS APPEAR IN T1 THRU T25, RUN TAPE SPEED TESTS FIRST*#xex22 
TEST 26 & 27 REQUIRE AN 800 BPI SKEW TAPE 
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7.3 SUBTEST DESCRIPTIONS: 
THE FIRST THIRTEEN (13) TESTS (T1 = T15) ARE CHECKS OF THE 
ROM CIRCUITS IN THE TU4S (M9811), THE ACCL COUNTER IN THE 
TMOS (M8903), AND THE SETTLEDOWN ONE SHOT (M8928). 
T1. WRITE FRGM BOT: 
THIS TEST WILL MEASURE ACCELLERATION DELAY REQUIRED TO 


MOVE THE TAPE APPROXIMATELY SEVEN (7) INCHES FORWARD 
FROM DEAD STOP AT BOT BEFORE STARTING TO TRANSFER DATA. 


- ASSURE TAPE IS STOPPED AT BOT. 
- ISSUE A WRITE COMMAND 
- MONITOR BIT 15 OF TC (ACCL) 
ta FROM GO TO ACCL RESET IS BOT DELAY 


T2. WRITE START: 


THIS TEST WILL MEASURE ACCELLERATION DELAY JUST AS IN 
i + sae THE TIME WILL BE LESS WHEN NOT STARTING 


LEAVE TAPE AT ITS — POSITION. ASSURE THAT IT IS STOPPED 
ISSUE A WRITE COMMAN 

MONITOR BIT 15 OF 1 (ACCL) 

Fa FROM GO TO RESET OF ACCL IS START DELAY 


- WRITE SHUTDOWN: 


THIS TEST WILL MEASURE THE TIME FROM EOR (LAST CHARACTER 
WRITTEN ON TAPE) TO THE START OF SETTLEDOWN TIME. THIS 
ASSURES, IN PART, A PROPER INTERROCORD GAP. 


LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
ISSUE A WRITE COMMAND. 

MONITOR FRAME COUNTER AND BIT 4 OF DS (SDWN) 

TIME FROM FC=0 TO ASSERTION OF SDWN IS 

+ I aeateamaes TIME. 
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T4. WRITE SETTLEDOWN: 


THIS TEST WILL MEASURE THE SLOWDOWN TIME. THE TIME 

FROM THE START OF SLOWDOWN UNTIL THE TAPE SHOULD 

BE STOPPED. THIS IS A PART OF THE GAP TIMING IN LOGIC. 
THE MECHANICAL POSITIONING OF THE TAPE IN THE GAP DISTANCE 
WILL BE MEASURED IN A LATER TEST. 


LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
ISSUE A WRITE COMMAND 

MONITOR BIT 4 OF DS (SDWN) 

TIME FROM SET OF SDWN TO RESET OF SDWN IS THE 

Maes DELAY 


— et Vw Do SY 


T5. READ FROM BOT 


THIS MEASUREMENT IS MADE EXACTLY AS THE WRITE 
MEASUREMENT IN T1. USE THE SAME RECORD THAT WAS 
WRITTEN IN T1. 


REWIND TO BOT 

ASSURE TAPE HAS HAD TIME TO COME TO A COMPLETE STOP 
READ FORWARD 1 RECORD. 

MONITOR BIT 15 OF TC (ACCL) 

a FROM GO TO ACCL IS BOT DELAY 
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T6. READ START 
THIS TEST MEASURES THE SAME DELAY AS IN T2. 


WRITE 1 RECORD, THEN BACKSPACE OVER IT, ASSURE TAPE IS STOPPED. 


ISSUE A READ FORWARD OF THE RECORD WRITTEN IN STEP 1 
MONITOR BIT 15 OF TC (ACCL) 
fo FROM GO TO RESET OF ACCL IS START DELAY 


READ SHUTDOWN: 


THIS TEST MEASURES THE SAME DELAY AS IN T3. 


WRITE 1 RECORD, THEN BACKSPACE OVER IT, ASSURE TAPE IS STOPPED. 


READ FORWARD THE RECORD WRITTEN IN STEP 1 

MONITOR FRAME COUNT AND BIT 4 OF DS (SDWN). 

TIME FROM FC=RECORD SIZE (LAST FRAME READ) TO SDWN=1 
5 Ay SHUTDOWN TIME. 


T10. READ SETTLEDOWN: 
THIS TEST MEASURES THE SAME DELAY AS IN T4. 


$. 
2. 


be 
4. 
5 


WRITE 1 RECORD, THEN BACKSPACE OVER IT, ASSURE TAPE IS STOPPED. 


READ FORWARD THE RECORD a IN STEP 1. 
MONITOR BIT 4 OF DS (SDWN) 

TIME FROM SET OF SDWN TO RESET OF SDWN IS THE 
Hy aes DELAY. 


SEQ 0019 
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T11. READ REVERSE START: 


THIS TEST WILL MEASURE THE START DELAY IN THE REVERSE 
DIRECTION. 


WRITE 1 RECORD, ASSURE TAPE IS STOPPED. 

READ REVERSE THE RECORD WRITTEN IN STEP 1. 

MONITOR BIT 15 OF TC (ACCL) 

ee FROM GO TO RESET OF ACCL IS THE START TIME 
ST 


T12. READ REVERSE SHUTDOWN 


THIS TEST WILL MEASURE THE READ SHUTDOWN IN THE REVERSE 
DIRECTION. 


WRITE 1 RECORD, ASSURE TAPE IS STOPPED. 

READ REVERSE THE RECORD WRITTEN IN STEP 1. 

MONITOR FRAME COUNTER AND BIT 4 OF DS (SDWN). 

TIME FROM FC=RECORD SIZE (LAST FRAME READ) TO SDWN=1 
jay READ REVERSE SHUTDOWN TIME. 


=— tt eS os ss ess SI Ss as SS I SS oS DY 


T13. READ REVERSE SETTLEDOWN: 


THIS TEST WILL MEASURE THE READ SETTLEDOWN IN THE REVERSE 
DIRECTION. 


1. WRITE 1 RECORD, ASSURE TAPE IS STOPPED. 
2. READ REVERSE THE RECORD WRITTEN IN STEP 1. 
- MONITOR BIT 4 OF DS (SDWN) 
- TIME FROM SET OF SDWN TO RESET OF SDWN IS THE 
ana DELAY 


T14. TURN AROUND DELAY-FORWARD TO REVERSE 


THIS TEST WILL MEASURE THE TIME REQUIRED FOR THE TAPE 
TO CHANGE DIRECTION. 


LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
ISSUE A WRITE FORWARD OF AT LEAST 20 FRAMES 

MONITOR BIT 7 OF DS (DRY) 

WHEN DRY IS ASSERTED (EOR), IMMEDIATELY ISSUE A 

READ REVERSE OF THAT RECORD. 

MONITOR BIT 15 OF TC (ACCL). 

TIME FROM GO OF READ REVERSE TO RESET OF ACCL IS 
ae TIME. 
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T15. TURN AROUND DELAY-REVERSE TO FORWARD 


THIS TEST WILL MEASURE THE TIME AS IN 114, BUT IN THE 
OPPOSITE DIRECTION. 


WRITE 1 RECORD. 

ASSURE TAPE IS STOPPED 

READ REVERSE 

MONITOR DRY (BIT 7 OF DS) 

WHEN DRY = 1, ISSUE A READ FORWARD 

MONITOR ACCL (BIT 15 OF TC) 

Hf 3 FROM GO FORWARD TO ACCL = 1 IS THE TURN AROUND TIME. 


a8 afe 


oll 


v 
1 
1 
1 
1: 
1 

4 
7 
1: 
1 
1: 
iH 
. 
1: 
1: 
. 
7 
1: 
1 
v 
1: 
1 
x 
. 
1: 
i 
E 
1 
1: 
1H 
i 
5 
1: 





J 2 
CZTUSAO TMO3/TUGS DRIVE FUNCTION TIMER MACY11 30(1046) 13-JUN-78 13:49 PAGE 22 
CZTUSA.P11 13-JUN-78 10:45 SEQ 0022 


TMO3 DRIVE FUNCTION TIMER PAGE 19 
GAP MEASUREMENTS: 


THE PREVIOUS THIRTEEN (13) TESTS WERE MEASUREMENTS OF LOGIC 
DELAYS PERFORMED BY THE TMO3 OR TU4S IN ORDER TO ALLOW FOR 
PROPER ACCELERATION AND DECELLERATION OF TAPE ACCORDING TO 
THE DESIRED INTEROCORD GAP (.6 INCHES). THIS TEST, HOWEVER, 
WILL MEASURE THE PHYSICAL SIZE OF THE INTERCORD GAP THAT 
EXISTS ON TAPE AS A RESULT OF THE START/STOP TIMES OF 

THE CAPSTAN ITSELF. BECAUSE THE INTERRCORD GAP IS 

CREATED BY TWO ACTIONS, THE START OF MOTION AND THE 

STOP OF MOTION IT IS NECESSARY TO MAKE TWO SEPERATE 
MEASUREMENTS. A THIRD MEASUREMENT, MADE ON THE FLY, OF 

THE ENTIRE LENGTH OF THE GAP WILL ALSO BE MADE. 


T16. GAP SIZE (STOP HALF) 
THIS TEST WILL MEASURE THE DISTANCE TRAVLED BY THE TAPE 


IN A STOP CYCLE. IN OTHER WORDS, THE DISTANCE INTO 
THE IRG. 


WRITE 1 RECORD. 

ASSURE TAPE IS STOPPED. 

ISSUE A READ REVERSE OVER THE RECORD 

MONITOR THE FRAME COUNT FOR THE FIRST FRAME READ (FC = 1) 
THE TIME FROM GO=1 TO FC=1 IS THE LENGTH OF THE GAP 


STOP 
T17. GAP SIZE (START HALF) 


THIS TEST WILL veaemmages THE DISTANCE OF TAPE TRAVEL 
DURING START UP 


1. WRITE 1 RECORD, THEN REVERSE OVER IT, ASSURE TAPE IS STOPPED. 
2. ISSUE A READ FORWARD 

3. MONITOR FC FOR FC=1 

" ooo. FROM GO=1 TO FC=1 IS START DISTANCE 


T20. GAP SIZE (INTERRECORD) 


THIS TEST WILL MEASURE THE ENTIRE LENGTH OF THE IRG ON 
THE FLG. THE TIME VALUE OF THIS TEST SHOULD NOT BE 
EQUAL TO A SUMMATION OF T16 AND T17 DUE TO THE FACT THAT 
THE ACCELLERATION AND DECELLERATION CURVES ARE NOT IN 
EFFECT. THE VALUE HERE SHOULD ACTUALLY BE LESS THAN THE 
SUM OF T16 AND T17. 


WRITE 2 RECORDS. 

READ REVERSE OVER THE SECOND RECORD 

MONITOR DRY (BIT 7 OF DS) 

WHEN DRY = 1, ISSUE A SECOND READ REVERSE 

MONITOR FRAME COUNT 

TIME FROM GO=1 OF SECOND READ REVERSE TO FC=1 IS THE 
LENGTH OF THE GAP. 
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7. STOP 


ip 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
14 
14 
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TMOS DRIVE FUNCTION TIMER PAGE 20 
T21. GAP CONSISTENCY: 


NOW THAT WE HAVE ESTABLISHED THAT THE INTERRCORD 

GAP IS THE PROPER SIZE, LET US DETERMINE _ CONSISTENCY 
OF THE GAP UNDER VARIOUS COMMAND EXECUTION TIMES. 

BY WRITING A SERIES OF RECORDS, EACH WITH A DIFFERENT 
DELAY BETWEEN EXECUTION, WE CAN ESTABLISH THE CONSISTENCY 
OF THE GAPS BY READING THESE RECORDS AND MONITORING 

THEIR INTERRECORD GAPS, ON THE FLY. 


REWIND TAPE TO BOT. 

WRITE ONE (1) RECORD TO GET TAPE OFF BOT 

WRITE SIXTEEN (16) RECORDS WITH A PROGRESSIVE DELAY 

OF FROM 0 TO 16 MILLISECONDS (APPROX) BETWEEN COMMANDS. 
BACKSPACE 16 RECORDS AND ALLOW THE TAPE TO STOP. 

READ FORWARD (NON-STOP) OVER THESE 16 RECORDS, EACH 
TIME MONITORING THE TIME FROM THE END OF RECORD (DRY) 
UNTIL THE FRAME COUNT NEXT GOES FROM 0 TO 1 (FC=1). 

THE TIMES FROM DRY TO FC=1 IS THE GAP TIME AND IT 
SHOULD REMAIN CONSISTANT FOR ALL RECORDS. 


7. STOP 
**(SEE GTIMTBL IN LISTING FOR GAP TIMES)** 


T22. DATA TIME AT 800 BPI: 


THIS TEST WILL MEASURE THE "tot REQUIRED TO WRITE 
ONE (1) INCH OF TAPE AT 800 B 

BY WRITING A RECORD OF ENOUGH FRAMES TO MOVE 

THE TAPE 1 INCH (800 FRAMES), DATA RATE 

CAN BE VARIFIED. 


REWIND TO BOT AND ALLOW TAPE TO STOP 

WRITE A RECORD AT 200 BPI. 

MONITOR DRY (BIT 7 OF DS) FOR EACH RECORD 

THE TIME FROM FC=FC+1 TO DRY WILL BE THE TIME REQUIRED 
otk, INCH AT THE SELECTED DENSITY 


T23. DATA TIME AT 1600 BPI (PE): 
REPEAT STEPS 1 THRU 5 AT 1600 BPI. 
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TMO3 DRIVE FUNCTION TIMER PAGE 21 
T24. ERASE: 


THE ERASE COMMAND WILL CAUSE AN AREA OF THE THREE (3) 
INCHES TO BE DC ERASED IN THE FORWARD DIRECTION. 
a" WILL ASSURE THAT THE PROPER DISTANCE IS 


LEAVE TAPE AT ITS PRESENT POSITION. 

ISSUE AN ERASE COMMAND. 

MONITOR DRY (BIT 7 OF DS) 

THE TIME FROM GO TO DRY WILL BE THE TIME 
REQUIRED TO ERASE 3 INCHES UF TAPE AND WILL 
— THE DISTANCE. DENSITY IS NOT A FACTOR. 


T25. TAPE MARK: 


THIS TEST IS ALSO A CHECK ON THE THREE (3) INCH GAP. 
WHEN A TAPE MARK IS WRITTEN, A 3 INCH GAP IS 
CREATED BEFORE DATA IS PUT ON TAPE. 


1. LEAVE TAPE AT ITS PRESENT POSITION 

2. ISSUE A WRITE TAPE MARK COMMAND 

3. MONITOR DRY (BIT 7 OF DS) 

4. THE TIME FROM GO TO DRY WILL BE THE TIME 
REQUIRED TO WRITE THE TM RECORD PLUS THE 
3 INCH GAP. 

5. STOP 


15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15, 
15 
15, 
15, 
15 
15, 
15, 
15 
15, 
15 
15, 
15, 
15, 
15 
15 
15. 
15 
15. 
15 
15 
15 
15 
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THOS DRIVE FUNCTION TIMER PAGE 22 
T26. TAPE SPEED FORWARD: 


THIS TEST REQUIRES THE USE OF AN 800 BPI SKEW TAPE! 
THE OPERATOR WILL BE REQUIRED TO MOUNT THE SKEW TAPE 
BEFORE EXECUTING THE TEST. THE SKEW TAPE IS THE ONLY 
WAY TO ASSURE THAT TAPE IS MOVING AT THE PROPER SPEED 
BECAUSE THE FREQUENCY OF FRAMES ON A SKEW TAPE IS 
GUARANTEED TO BE ACCURATE. 


1. ASSURE TAPE IS STOPPED AT BOT. 

2. ISSUE A READ FORWARD (800 BPI, NORMAL) 

3. MONITOR FC FOR FC = 800(10) 

4. MONITOR FC FOR FC = 8800(10) 

5. TIME FROM FC = 800 TO FC = 8800 IS THE TIME REQUIRED 
FOR TAPE TO TRAVEL 10 INCHES 

6. DIVIDE THE TIME FOR 10 INCHES BY 10. 

4 aa RESULT IS AN AVERAGE SPEED FOR 1 INCH. 


T27. TAPE SPEED REVERSE: 


THIS TEST IS THE SAME AS TEST 31, BUT SPEED IS 
MEASURED IN THE REVERSE DIRECTION. 


ADVANCE TAPE OFF OF BOT. 


997 ;RESTART PROCEDURE 


PMMA AU YIUT 


1 

2. ISSUE A READ REVERSE. 15¢ 
3. REPEAT STEPS 3 THRU 6 IN THE REVERSE DIRECTION. ie 3 
‘ 
. S J 15; 
z 13: 
982 -LIST BIN,LOC,SEQ 15 
983 15. 
984 .NLIST MC 15: 
985 -NLIST TOC 15. 
986 -LIST ME 15 
987 -ENABLE ABS, AMA 15 
988 -MCALL SCPVEC,SCPREG, SCATCH,STYPE, .$ACT11,.S$EOP,SCHAIN 151 
989 .TITLE CZTUSAO TMO3/TU4S DRIVE FUNCTION TIMER 151 
990 .SBTTL STARTING INSTRUCTIONS 15! 
991 ZLOADING AND STARTING PROCEDURE 15) 
992 : LOAD PROGRAM USING ABS LOADER 1% 
993 ; LOAD ADDRESS 200 151 
994 : SET SWITCH OPTIONS 15% 
995 ; PRESS START 151 
oa 3 
998 : LOAD ADDRESS 210 151 
999 : SET SWITCH OPTIONS 15) 
eee ; PRESS START 12 
1002 :SWITCH REGISTER SWITCH ASSIGNMENTS 1% 
1003 100000 Sw15= 100000 ;HALT ON ERROR 13! 
1004 040000 Swi4= 040000 LOOP SUBTEST V5) 
1005 020000 SwW13= 020000 : INHIBIT ERROR TYPE OUT 15 
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004000 SW11= 004000 ; INHIBIT SUBTEST ITERATION 
002000 ; INHIBIT PUBLISHING TIME SPECIFICATION 
001000 09 001000 sRING BELL ON ERROR 
000400 TYPE LINE ITEM AFTER EACH ITERATION 
000200 00200 NOT USED 
000100 SwO 000 CONTINUOUS CYCLE 
; 0 RUN TEST SELECTED 
*eNOTE: IF <SW15-SWOO> = 177777 AT STARTUP USE SOFTWARE 
SWITCH REGISTER. 


;CONSOLE COMMANDS 
; CONTROL C RESTART PROGRAM (SAME AS START @ 200) 
CONTROL G :SET NEW SOFTWARE SWITCH REGISTER 
CONTROL U DELETE LINE TYPED 
RUBOUT (DELETE) ;DELETE LAST CHAR TYPED 


;GENERAL REGISTER USAGE: 

; RO=ADDRESS OF ‘FC’ REGISTER (SET BY SCOPE) 
RI=ADDRESS OF "DS" REGISTER (SET BY SCOPE) 
R2=RETURN PC FROM TIMER (SET BY EACH TEST) 
R3=INDEX INDICATING PREVIOUS OSCILLATOR POLARITY (SET BY TIMER) 
R4=CONTAINS ‘TICK’ COUNT WHEN TIMER IS RUNNING (SET BY TIMER) 
R5=ADDRESS OF CS1 (SET BY SCOPE) 


ey DEFINITIONS 
V 
TT es SAVE REGISTERS ON THE STACK 


RESTORE 

PC,.RESTORE RESTORE REGISTERS FROM THE STACK 
RESTORE 

INPUT 

PC,.INPUT GET USER INPUT 

INPUT 


REWIND 

PC,.REWIND REWIND SLAVE 

99$ ;BRANCH IF ERROR ON REWIND 
REWIND 


TIMEON 
PC, TIMON ; TURN TIMER ON 


TIMCHK 
TIMER(R3) :GO TO TIMER & RETURN VIA R2 


SETGO 
(R5) SET ‘GO’ BIT 


~SBTTL REGISTER ASSIGNMENTS 
z;DEFINITIONS AND REGISTER ASSIGNMENTS 
: GENERAL REGISTER ASSIGNMENTS 
000000 RO=20 
000001 
000002 
000003 
000004 
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000005 


177776 
177774 
177772 
177770 
177560 
177562 
177564 
177566 


000004 


000250 


172540 


177516 


172440 


000000 


000014 


C 
MACY11 30(1046) 13-JUN-78 
REGISTER ASSIGNMENTS 


SLR= 

PIRQ= 

UBRE AK= 

TKS= 

TKB= 

TPS= 

TPB= 177566 


3;VECTOR ADDRESSES 
ERRVEC=4 
RESVEC=10 
TBITVEC=14 
TRIVEC=14 
BPTVEC=14 
IOTVEC=20 
PFVEC=24 
EMTVEC=30 
TRAPVEC=34 


FPEVEC=244 
MAVEC=250 


:CLOCK ADDRESS AND VECTORS 
P 72540 


LPB= 177516 


3RH,TMO3/TU4S REGISTERS 
TACS1= 172440 


3 TMO3/TU4S INDEX VALUES 
CS1= 00 


3 
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:;PROCESSER STATUS WORD 

32STACK LIMIT REGISTER (11/40,11/45) 
:;PROGRAM INTERRUPT REQ. (11/45) 

7 ;MICRO-BREAK REGISTER (11/45) 

7 KEYBOARD CSR 

:;KEYBOARD DATA BUFFER REGISTER 
;;TELEPRINTER CSR 

7; TELEPRINTER DATA BUFFER REGISTER 


; ADDRESS 
7 ADDRESS 
7 ADDRESS 
7 ADDRESS 
7 :ADDRESS 
7 :ADDRESS 
; ADDRESS 
3; ADDRESS 
7; ADDRESS 
7 ADDRESS 
7 ADDRESS 
7 ADDRESS 
3; ;ADDRESS 
7 ADDRESS 
7 ADDRESS 


skKw11-P 
sKW11-L 
3LP11 


ERROR VECTOR 

RESERVED INST. TRAP VECTOR 
*T’ BIT TRAP VECTOR 
*TRACE' TRAP VECTOR 
"BREAKPOINT’ TRAP VECTOR 
IOT TRAP VECTOR 

POWER FAIL TRAP VECTOR 

EMT VECTOR 

TRAP VECTOR 

TTY KEYBOARD INT. VECTOR 
TTY PRINTER INTERRUPT VECTOR 
MA/MF PARITY ERROR VECTOR 
PIRQ VECTOR 

FLOATING POINT INT. VECTOR 
MEM MGMT ERROR TRAP VECTOR 


CONTROL STATUS #1 


;BUS ADDRESS REGISTER 
;FRAME COUNT 

:CONTROL STATUS #2 
DRIVE STATUS 

sERROR REG #1 


SEQ 0028 
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000016 AS= zATTENTION SUMMARY 
000022 DB= ;DATA BUFFER REG 

000024 MR= MAINTENANCE REG 

000026 DT= DRIVE TYPE REG 

000030 SN= SERIAL NUMBER REGISTER 
000032 TC= ; TAPE CONTROL REG 


TMO3/TU4S REGISTER BITS 


—_ 
— 
_ 
co 


- SBTTL 
;RHCS1-CS1(R5) 
000001 O= 


WWWAWWWAAAAWNP PIP POP PoP frnrn 
ano 


100000 


;RHCS2- 83(R5) 
000000 DVvO= 
DVi= 
DV2= 
Dv3= 
DV4= 
DVS= 
DV6= 
DV7= 
BAI= 
PAT= 
CLR= 
IR= 
OR= 
MDPE 
MXF= 
PGE= 
NEM= 
NED= 
UPE= 
WCE= 
100000 DLT= 100000 
;RHDS~DS(R5) 
000001 SLA= 1 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
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1174 000002 BOT= 
TMK= 
IDB= 
SOWN= 
PES= 
SSC= 
DRY= 
DPR= 
EOT= 
WRL= 
MOL= 
PIP= 
ERR= 
100000 ATA= 
;RHER~EkK(R5) 
000001 ILF= 


000002 ILR= 
000004 RMR= 


000020 FMT= 
000100 INCVAE= 
000200 PEFLRC= 
000400 NSG= 
001000 FCE= 
002000 CSITM= 
004000 NEF= 
010000 DTE= 
020000 OPI= 
040000 UNS= 


;RHMR-MR(R5) 
000100 osc= 


;RHDT-DT(R5) 
002000 SPR= 
010000 CH7= 10000 
040000 TAP= 40000 


sRHTC-TC(RS) 
001700 1700 
320 


0 
000400 
001000 
002300 
100000 100000 


NOUSWN Oo OON 








~~ 
MMMM MPr 


; INSTRUCTION EQUATES 
104400 HLT= 
104000 SCOPE= 
000004 TYPE= 


MISCELLANEOUS EQUATES 
005620 OUTBUF=INIT ;OUTPUT BUFFER STARTS AT BEG OF PROGRAM 
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177400 
177600 


000001 
000003 
000007 
000011 
000012 
000015 
000017 
000025 


TMO3/TU4S REGISTER BITS 


FRMCNT= -256. 
WROCNT= 
sASCII EQUATES 
CNTRLA= 
CNTRLC= 
CNTRLG= 
HT= 
LF= 
CR= 
CNTRLO= 
CNTRLU= 


31 


:FRAME COUNT 
;WORD COUNT 


ASCII 
sASCII 
zASCII 
sASCII 
ASCII 
sASCII 
sASCII 
sASCII 


SEQ 0031 


CONTROL A ( A) 
CONTROL C (¢ C) 
CONTROL G ( G) 
HORIZONTAL TAB 
LINE FEED 
CARRIAGE RETURN 
CONTROL O ( O) 
CONTROL U ( U) 
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000014 


000036 


000046 
000052 


000060 
000062 


000176 


000200 
000210 


001000 


001014 
001054 


001124 


13-JUN-78 


000014 


000340 


000040 


000040 
000060 


003420 
000200 


000176 
000100 
000200 
000137 
000210 
000137 


000500 
000600 


001000 
177570 


000020 
000020 


10: 


005620 
006726 


;SETUP TRAP VECTORS 
-=TBITVE 


. WORD 
- WORD 
- WORD 
. WORD 
. WORD 
«WORD 
- WORD 
. WORD 
. WORD 
«WORD 


13-JUN- 


C 
.+2 
HALT 


0 
PFVEC+2 


sACT11 HOOK tteeeereree 


$SVPC=. 
-=46 
- WORD 
-=52 
«WORD 

-=SSVPC 
- = TKVEC 


«WORD 
- WORD 


SENDAD 
0 


TKISR 
200 


G 3 
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;SET 'T' TRAP TO TIMER ROUTINE 
sPRIORITY LEVEL 7 

;SET IOT TRAP TO .TYPE ROUTINE 
;PRIOTITY LEVEL 0 

;POWER FAIL TRAP TO HALT 

zAT PFVEC+2 

;SET EMT TRAP TO .SCOPE ROUTINE 
s;PRIORITY LEVEL 7 

;SET TRAP TRAP TO .HLT ROUTINE 
PRIORITY LEVEL 7 


SAVE CURRENT LOCATION CTR 


SET LOCATION 46 


;SET LOCATION 52 = 0 
RESTORE LOCATION CTR 


eae SWITCH REGISTER LOC. 176 


SWREG: 


.=500 
STKPTR= 600 


=1000 
PROGRAM TAGS 
SWR : 177570 
SCPADR: .WORD 
DRVNUM: .BYTE 
SLVNUM: .BYTE 
SLVPTR: .WORD 
TMBASE: .WORD 
ATIME: .WORD 
ATIMTBL: .BLKW 


GAPTBL: . 


PRGFLG: 


«WORD 


a# INIT 
@#RSTRT 


-—-oCo7aCOOCOOCoOo 
ao Oo 
. . 


ooooco°c;”[o— 


SW06 SOFTWARE SWITCH REGISTER 


:GO TO START OF PROGRAM 
RESTART ADDRESS 


7 STACK 


; SWITCH REGISTER 


;TMO3 DRIVE UNDER TEST 

;TU45 SLAVE UNDER TEST 

;POINTER TO SLAVE TABLE (SLVTBL) BELOW 

BASE ADDRESS OF TMO3/TU4S REGISTERS 
;CONTAINS ‘TICK’ COUNT 

EACH ENTRY CONTAINS TIME FOR FUNCTION 

ENTRIES ARE MADE BY "SCOPE' ROUTINE 

TIMES RECORDED BY ‘GAP CONSISTANCY® TEST 

:VARIBLE DELAY 


CONTAINS GAP # (USED FOR TST 021) 
: ITERATION COUNT 
;TEST # 


TERROR FLAG 
“PROGRAM FLAG 


SEQ 0032 
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001125 UNTFND: .BYTE ;UNIT FOUND INDICATOR 
TYPFLG: .BYTE 
PSCNT: . sCONTAINS PASS COUNT 
001130 ASFLG: . 31/0 = YES/NO. 


.e 
001132 DIGTAB: * 


ODIGITS:. 6 RESERVE SPACE FOR CONVERTED DIGITS 
001152 000 ° 0 ; TERMINATOR 
8 
6 


001154 DRVTBL: . ;A 0/-1 = DRIVE NOT TO BE/TO BE TESTED 
;A 0/-1 = SLAVE NOT TO BE/TO BE TESTED 

72. TELETYPE INPUT BUFFER 
<CR><LF> MISCELLANEOUS ASCII CHARACTERS 


"9" 
<7> 


001412 ANGTAB: . ">" <HT> 
001416 


—"SCOVOOnNOUSLWNH—O”O 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WWWWWAWAAAWWWWw 
Oy Cee eet et et ee ee et ey 
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-SBTTL TIME SPECIFICATION TABLE 
; THE BELOW TABLE CONTAINS THE SPECIFIED FUNCTION TIMES IN TENS OF 
sMICROCESONDS. NOTE THAT WHEN TIMES ARE TYPED THAT THEY ARE TYPED IN 
s;MICROSECONDS (BY APPENDING A 0). 
FORMAT IS 
; WORD MAX,MIN : TIME IN MS FUNCTION TEST # 


000000 000000 STIMTBL:. 0.0 ; 
0 0 6300. ,5900. ; WRITE FROM BOT TSTOO1 
00450. ,00370. WRITE START TSTO02 
00360. ,00260. WRITE SHUTDOWN TSTOO3 
00760. ,00140. WRITE STLDOWN TSTO04 
00920. ,00520. READ FROM BOT TSTO005 
READ START TST006 
READ SHUTDOWN TSTOO7 
READ SETTLEDOWN TSTO10 
RD REV START TST011 
RD REV SHTDWN TSTO12 
RD REV STLDOWN TSTO13 
TRN RND DLY F-R TSTO14 
RND DLY R-F TSTO15 
SIZE STOP TSTO16 
SIZE STRT TSTO17 
SIZE INTER TSTO20 
CONSISANCY TSTO21 
TIME 800BPI TSTO22 
TIME 1600PE TST023 
ERASE TST024 
WRT FILE MARK TSTO25 
. 01130., TAPE SPEED FWD TST026 
001552 002152 002006 ° 01130. .01030. TAPE SPEED REV TSTO27 


:NOTE: TEST 26 AND 27 REQUIRE PRERECORDED 800BPI1 SKEW TAPE. 


*eeee 
‘ee 

* ©e «see @ 
OMS Oo 


ime 
eee 
* MOC kfuwosf: 


00880. ,00280. 
00880. ,00280. 


J 
'fSron-—-Oo- 1 our 


00705. 00535. 
01200. ,01100. 
01250. ,01150. 
04990. ,04690. 
05120. 


5 
6 
6 
2 
7 
4 
6 
7 
9- 
6 
8 
8 
9 
5 
1 
0 


° 
«| Wer 


ee ° 
WWHrODWOMWMuN 


RS MS NO ONO OO NN PO NO SM ON 
ee eeee#eee 


. . . 
ee reer ory 1 
SV FHS SP 


2 
2 
9 
iP 
1. 
1 


oowo—-—: 
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-SBTTL GAP TIME SPECIFICATION TABLE 
THIS TABLE CONTAINS THE GAP SIZES (IN TENS OF MICROSECONDS) FOR EACH 
:OF THE 16. GAPS RECORDED BY THE GAP CONSISTANCY TEST (TSTO21). 
s;NOTE: GAP #°S ARE IN OCTAL. 


: WORD MAX,MIN(10) ;TIME IN MS(10) GAP # DELAY IN MS(10) 


001556 001274 001041 GTIMTBL:.WORD 00700.,00545. GAP-0 MS 
oo 00740. ,00640. 
ow 


- WORD 

. WORD 

- WORD 

- WORD 

. WORD 

- WORD 

- WORD 

. WORD 

. WORD 

- WORD 

WORD 00690. 00500. 

-WORD 00690.,00500. 
001652 001262 000764 -WORD 00690. ,00500. 


eee eee 
oooooo°co: 
-+ Oooo°oo°c;eoo 


_— et OD WNAULS WHO 


PP PP PPP ESa TTT TE 
MSW O- 
. a 


BAA AAAS NINN NNNNX 
a oO oe . . . . . . * 


Se Se Se Be Se Se Se Fe Be Se Be Be Se Be Ge 
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-SBTTL TEST HEADER POINTERS 
; THE BELOW TABLE CONTAINS POINTERS TO EACH TEST'S DESCRIPTOR 
000000 NAMPTR: .WORD 0 
. WORD 
- WORD 
- WORD 
- WORD 
. WORD 
- WORD 
- WORD 
- WORD 
- WORD 
- WORD 
. WORD 
- WORD 
. WORD 
. WORD 
«WORD 
- WORD 
- WORD 
«WORD 
- WORD 
- WORD 
- WORD 
. WORD 
015653 “WORD A.T027 


; TABLE OF TEST STARTING ADDRESSES 
007166 TSTTBL: .wORD TSTOOO 
- WORD 
“WORD 
- WORD 
- WORD 


002014 013042 ¢ T$1027 
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1430 002016 000000 TIB: -WORD 0 

Hog 2 ;ROUTINE TO LOAD SSOFTWARE SwWR 

1433 002020 022737 000176 001000 GTSwWR: CMP #SWREG, SUR ;BRANCH IF SOFTWARE SWR 

1434 002026 001027 BNE 2s ;NOT INVOKED 

1435 00203 004737 002354 JSR PC,.SAVE ;SAVE REGISTERS ON THE STACK 

436 20 000004 015702 TYPE ,L.SWR 

1437 002040 017702 176734 MOV aSwR,R2 

1438 2044 004737 002426 JSR oo TYPOCT 

1439 002050 000 015711 TYPE,L.N 

1440 002054 004737 003272 JSR PC. INPUT 3;GET USER INPUT 

1441 002060 122737 000015 001264 CMPB #CR,a#INBUF sEXIT IF FIRST CHAR IS <CR> 
1442 002066 001405 BEQ 18 

1443 002070 004737 003056 JSR PC,CNVTAO ;CONERT ASCII TO OCTAL 

1444 002074 013777 001116 176676 MOV @#0CTALO,aSWR 3SET NEW SWITCH REG CONTENTS 
1445 002102 004737 002376 1$: JSR PC, RESTORE 

1446 002106 000207 2$: RTS PC 

1447 
1448 
1449 -SBTTL PROGRAM oy tes 

1450 .SBTTL TYPE SUBROUTINE 

1451 ROUTINE TO TYPE ASCII MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
1452 3: THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
1453 3;CALL: TYPE 372A TRAP TYPE INSTRUCTION 

aes 33 MESADR 7:MESADR IS FIRST ADDRESS OF ASCIZ STRING 
1456 3: TAGS USED BY THE TYPE ROUTINE BELOW 

1457 000011 $HT=11 >:HORIZONTAL TAB 

1458 002110 060 SNULL: .BYTE 0 7: CONTAINS NULL CHARACTER 

1459 002111 002 SFILL: .BYTE 2 7: CONTAINS # OF FILLER CHARACTERS 

1460 002112 000 STPFLG: .BYTE 0 7: CONTAINS TELEPRINTER AVAILABLE FLAG 
1461 330/377 = AVAIL/NOT AVAIL 

1462 002113 000 STKFLG: .BYTE 0 3: CONTAINS KEYBOARD AVAILABLE FLAG 
1463 002114 177564 STPS: .- WORD 177564 7 ADDRESS OF TLEPRINTER STATUS REGISTER 
1464 002116 177566 STPB: - WORD 177566 sADDRESS OF TELEPRINTER DATA BUFFER 
1465 002120 000 SCHARCNT: .BYTE 0 3: CONTAINS # OF CHARS TYPED 

1466 002121 000 SCNTRLO: .BYTE 0 3:CONTAINS CONTROL O CHAR (IF TYPED) 
1467 002122 005015 000 SCRLF: .ASCIZ <15><12> 

1468 002126 EVEN 

ay 002126 000000 RDSW: -WORD 0 

1471 002130 010046 -TYPE: MOV RO,-(SP) 7: SAVE RO 

1472 002132 017600 000002 MOV a2(SP),RO 7:GET MESSAGE ADDRESS 

1473 002136 062766 000002 000002 ADD #2,2(SP) : ADJUST RETURN PC 

te 002144 105037 002121 CLRB SCNTRLO 

1476 002150 105737 002121 TYPE1: TSTB SCNTRLO 3:BRANCH IF CONTROL O( 0) WASN'T TYPED 
1477 002154 001410 BEQ TYPE2 

1478 002156 000004 002122 TCRLF: TYPE,SCRLF : TYPE <CR><LF> 

1479 002162 105737 002126 TSTB RDSW 

1480 002166 100006 BPL TYPE3 

1481 002170 005037 002126 CLR RDSW 

1482 002174 000207 RTS PC 

1483 002176 112046 TYPE2: MOVB (RO) +,-(SP) 3;PUSH CHARACTER TO BE TYPED ONTO STACK 
1484 002200 001003 BNE TYPES 7;BRANCH IF NOT THE TERMINATOR 

1485 002202 005726 TST (SP)+ 3:POP TERMINATOR CHAR OFF THE STACK 
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012600 TYPES: (SP)+,RO ; RESTORE RO 
000002 R 7 ;RETURN TO CALLER 


122716 000011 TYPES: : — ; BRANCH IF HORIZONTAL TAB <HT> 


002250 PC,5$ 7: TYPE CHARACTER 
000012 3$: #12, (SP)+ ;;CHECK IF CHARACTER WAS A LINE FEED 
TYPE1 ;;BRANCH IF NOT LINE FEED 
013746 002110 SNULL ,~(SP) 7:GET # OF FILLERS REQUIRED AND FILLER 
;; CHARACTER. 


105366 000001 : 1(SP) ;;DECREMENT FILLERS REQ. COUNT 
3$ : BRANCH IF NO MORE FILLERS ARE REQUIRED 
002250 is 7 TYPE FILLER CHARACTER 


177640 : asTPs :;WAIT FOR OUTPUT DEVICE 


74 
000017 002121 #17,Q@SCNTRLO ;;CHECK IF CONTROL O WAS TYPED 

6$ ;;STOP TYPING MESSAGE IF 0 WAS TYPED 
000002 177622 2(SP) ,aSTPB : OUTPUT CHARACTER 
000015 000002 6$: aia ;;BRANCH IF NOT <CR> 


002120 — :;CLEAR CHARACTERS TYPED COUNT 
000012 000002 7S:  eaiesaaty >:BRANCH IF <LF> OR ‘NULL 


002120 SCHARCNT ;; INCREMENT CHARACTER TYPED COUNT 
002326 000207 8$: PC 


HORIZONTAL TAB <HT> PROCESSER 
002330 112716 000040 9$: MOVB #40, (SP) ;;LOAD ‘SPACE’ 
002334 002250 108: PC,5$ :: TYPE "SPACE* 
002340 000007 002120 #7, SCHARCNT 3: TYPE SPACES UNTIL A MULTIPLE 
002346 10$ ;:0F 8 CHARACTERS HAVE BEEN TYPED 
002350 (SP)+ 3:POP SPACE 
002352 000676 B TYPE1 3;GET NEXT CHARACTER 


reg gg SAVE GENERAL REGISTERS ON THE STACK 
CALL: 
002354 010546 - SAVE: R5,-(SP) :SAVE REGISTERS ON THE STACK 
R4,-(SP) 
R3,-(SP) 
R2,-(SP) 
R1,-(SP) 
RO,-(SP) 
000014 14(SP),-(SP) ;GET RETURN PC 
002374 000207 PC ;RETURN 


+ rorege Angee GENERAL REGISTERS FROM THE STACK 
002376 012666 000014 “RESTORE : MOV (SP)+,14(SP) MOVE RETURN PC 
MOV P)+,RO sRESTORE REGISTERS 


gy ge gy SEE SPREE 
AUN lkwn oOo OC @Oneuswrne—o 


MAAMMAAMMIM I A 


MMA 
WUIWP Mr 
moO Cen 


(SP)+,R2 
002410 012603 (SP)+,R3 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Py ee 
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002412 012604 MOV (SP)+,R4 
002414 012605 MOV (SP)+,R5 
002416 000207 RTS PC ; RETURN 


;SUBROUTINE TO CONVERT OCTAL DATA TO ASCII 
;CALL: MOV NUMBER ,R2 ;MOVE NUMBER TO R2 
; JSR PC, CNVOCT 


002420 110637 001126 CNVOCT: MOVB SP, TYPFLG 3SET DO NOT TYPE FLAG 
002424 000402 BR CNVTO 


- SBTTL OCTAL TO ASCII & TYPE ROUTINE 

; SUBROUTINE TO CONVERT OCTAL NUMBER TO ASCII AND TYPE IT OUT 
:CALL: MOV NUMBER ,R2 ;PUT # IN R2 

: PC, TYPOCT CALL ROUTINE 


105037 001126 ak oly a#TYPFLG SET TYPE FLAG 
004737 002354 PC,.SAVE SAVE REGISTERS ON THE STACK 
001144 #ODIGITS,R4 ;SET PTR TO OUTPUT 
R3 ;R3 WILL CONTAIN OCTAL DIGIT 
:GET # TO BE TYPED 
SHIFT # 


000006 + SET DIGIT COUNTER 


SHIFT # 3 PLACES LEFT 


2 
000003 : #3,R1 ;SET SHIFT COUNTER 
001132 Saen ene sMOVE ASCII EQUIV TO OUTPUT 


RO ;DECREMENT DIGIT COUNT 
2$ ;GET NEXT DiGIT 
001126 ane ;BRANCH IF ASCII IS 


BNE $ ;NOT TO BE TYPED 
000004 001144 TYPE ,ODIGITS 


004737 002376 JSR PC, .RESTORE RESTORE REGISTERS FROM THE STACK 
002524 000207 RTS PC 


; SUBROUTINE TO yen OCTAL DATA TO se ASCII 
sCALL: MOV NUMBER ,R2 MOVE NUMBER TO R2 
: JSR PC, CNVDEC 


002526 110637 001126 CNVDEC: MOVB SP ,a#TYPFLG ;SET DO NOT TYPE FLAG 
002532 000402 BR CNVTD 
- SBTTL OCTAL TO DECIMAL & TYPE ROUTINE 
THIS ROUTINE CONVERTS AN OCTAL # TO DECIMAL ASCII AND TYPES IT OUT 
sCALL: MOV NUMBER ,R2 ;PUT # IN R2 
: JSR PC, TYPDEC CALL ROUTINE 


105037 001126 TYPDEC: CLRB aseTYPFLG SET TYPE FLAG 
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CNVTD: 

002354 JSR PC,.SAVE SAVE REGISTERS ON THE STACK 

RO RO IS INDEX TO DECIMAL CONSTANT 
001144 #ODIGITS,R4 SET OUTPUT PTR 

: R3 3R3 CONTAINS DECIMAL DIGIT 

002634 : DCONST(RO),R2 ; SUBTRACT DECIMAL CONSTANT UNTIL 

3$ INPUT # GOES NEGATIVE 

a KEEPING TRACK OF SUBTRACTIONS 


002634 : DCONST(RO) ,R2 ;ADD BACK CONSTANT WHEN NEGATIVE 
001132 DIGTAB(R3) , (R4)+ MOVE ASCII EQUIVILENT 

000002 #2,R0 NEXT CONSTANT 

002634 — UNTIL ALL CONSTANTS DONE 


000060 #°0,(R4)+ sLAST DIGIT IS 0 
001126 a#TYPFLG BRANCH IF ASCII IS 


BNE 4% NOT TO BE TYPED 
000004 001144 TYPE ,ODIGITS 


004737 002376 JSR PC, .RESTORE RESTORE REGISTERS FROM THE STACK 
002632 000207 RTS PC 


002634 023420 DCONST: .WORD 
002636 001750 - WORD 
002640 000144 
002642 000012 
002644 000001 


. t. 
002646 000000 . ; TERMINATOR 


- SBTTL TYPE SPECIFIED TIMES ROUTINE 

;THIS SUBROUTINE OUTPUTS THE TIME SPECIFICATIONS FOR THE TEST 

;AND ALSO THE ACTUAL TIME RECORDED (ATIME) 

:FORMAT OF LINE TYPED 

; RANGE =<AAAAAA~BBBBBB> ACTUAL=CCCCCC 

: WHERE: AAAAAA IS MAXIMUM TIME FOR TEST (STIMTBL(TSTNUMX4)). 

: BBBBBB IS MINIMUM TIME FOR TEST (STIMTBL(TSTNUMX4+2)). 

: CCCCCC IS ACTUAL TIME RECORDED BY TEST (ATIME). 

: CALL: TEST NUMBER,R2 ;LOAD TEST NUMBER 

: #TIME ,@#ATIME ;MOVE TIME TO ATIME 

: J PC ,OUTSPC 

002650 010246 OUTSPC: - gett SAVE R2 & R3 ON THE STACK 

R2 MULTIPLY TEST # TIMES 4 
R2 :TO FORM INDEX INTO STIMTBL 
A.5 R3 3R3 CONTAINS INDEX INTO TABLE 


*STINTBL (83), R2 GET MAXIMUM SPEC TIME 
CONVERT TO DECIMAL & TYPE 


GET MINIMUM TIME 
CONVERT TO DECIMAL & TYPE 


014745 


~ Q#ATIME ,R2 GET ACTUAL TIME 
J PC, TYPDEC ;CONVERT TO DECIMAL & TYPE 
002732 000004 001374 TYPE ,CRLF 
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012603 MOV (SP)+,R3 


012602 MOV (SP)+,R2 
002742 000207 RTS PC ; RETURN 


-SBTTL TYPE GAP TIMES SUBROUTINE 
;THIS SUBROUTINE IS USED TO TYPE THE SPECIFIED GAP SIZES (RECORDED IN 
:T$T021). IT IS CALLED BY THE GAPOK ROUTINE IF THE GAP SIZE IS OUT OF 
RANGE VIA THE HLT ROUTINE (HLT#2). 
:CALL: MOVB #GAP ,GAP ;LOAD GAP # INTO GAP 
s #TIME ,ATIME 


002744 010246 


003054 000207 


003056 
004737 


000761 
003136 


001120 


014745 


001374 


002354 
001264 
001116 


000002 
000015 
177770 
000003 


000002 


OUTGAP: 


CNVTAO: 


PC, OUTGAP 


R2,-(SP) 
R3,-(SP) 
oAP,R3 
R3 

R3 


RNG 
GTIMTBL(R3) ,R2 


PC, TYPDEC 


SH 
das = De Naa R2 


PC, TYPDEC 


TYPE ,ANGTAB 
TYPE,L.ACT 


MOV 
JSR 


@#ATIME ,R2 
PC, TYPDEC 


TYPE ,E.GAP 


RTS 


@4#GAP ,R2 
en 


(SP)+,R3 
(SP)+,R2 
PC 


;LOAD ACTUAL TIME INTO ATIME 


;SAVE R2 AND R3 
GET GAP # 


:GET MAX TIME 
;CONVERT TO DECIMAL & TYPE 


;GET MIN TIME 
sCONVERT TO DECIMAL & TYPE 
s TYPE < 


3GET ACTUAL TIME 
:CONVERT TO DECIMAL & TYPE 


:GET GAP # 
TYPE GAP # 


RESTORE R3 AND R2 


- SBTTL ASCII TO OCTAL CONVERT SUBROUTINE 
;SUBROUTINE TO CONVERT ASCII DATA TO OCTAL. CONVERTED OCTAL DATA 
1S LEFT IN OCTALO <15-00>. 


PC,.SAVE 
#INBUF ,RO 
#OCTALO,R1 
(R1) 

2(R1) 

#CR, (RO) 
3$ 


(RO) +,R2 
#177770,R2 
R3 


SAVE REGISTERS ON THE STACK 


;SET PTR TO ASCII DATA 


GET ADDRESS OF OCTAL DATA 
CLEAR OUT OLD OCTAL DATA 


3<CR> TERMINATES INPUT 


;GET ‘OCTAL* DATA 
STRIP UNUSED BITS 
SET SHIFT COUNT 
SHIFT LAST 

sOCTAL DIGIT 


;AND INSERT THIS DIGIT 
:G0 GET NEXT DIGIT 
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003136 
003142 


003144 


003202 


003204 
003206 
003210 
003212 


003214 


003230 
003234 


0 
003270 


003272 
003274 
003300 
003304 


003306 
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004737 
000207 


004737 


000777 


062002 
005503 
005301 
001374 


012700 


010237 
113700 


000207 


010046 
012700 
105737 
100375 


113746 


002376 


002354 
001014 
001121 
000001 


000020 


000004 


001012 
001122 
001656 
001122 


002650 
002376 


001264 
177560 


177562 


003252 
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JSR PC,.RESTORE RESTORE REGISTERS FROM THE STACK 
RTS PC 7 RETURN 


- SBTTL PUBLISH SUBROUTINE 
; THE PUBLISH SUBROUTINE AVERAGES THE RECORDED TIMES FOR EACH TEST IT- 
sERATION (IF 16. ITERATIONS) AND PLACES THE AVERAGE RESULT IN ‘ATIME'. 
:1T TYPES THE NAME OF THE FUNCTION THAT WAS TIMED,THE TIME SPEC- 
IFICATION AND THE ACTUAL TIME . 


PUBLISH: 
JS PC,.SAVE SAVE REGISTERS ON THE STACK 

#ATIMTBL,RO GET TABLE ADDRESS CONTAINING TIMES 
@#ITCNT,R1 :GET # OF ENTRIES (GIVEN BY ITERATION COUNT) 

:BRANCH IF SINGLE ITERATION 

;CLEAR *SUM’ REGISTERS 

BRANCH IF 16. ITERATIONS 

: ITERATION COUNT MUST BE 71 OR 16. 

:D0 NOT CHANGE POSIT OF SW11 

:WHEN TEST IS RUNNING. 


:SUM INDIVIDUAL TIMES 


;SHIFT TIME IN R3 & R2 4 PLACES 
RIGHT = DIVIDE BY 16. 
3$ 
R2,a#ATIME s;MOVE AVERAGED TIMES 
teammates :GET TEST # 
NAMPTR(RO) ,5$ ;GET TEST NAME STRING ADDRESS 


0 

@#TSTNUM,R2 GET TEST # 

PC ,OUTSPC ;OUTPUT TIMES 

+ pela RESTORE REGISTERS FROM THE STACK 


- SBTTL ae SUBROUTINE 
;SUBROUTINE TO GET TTY we 

CALL: JSR PC,.INP 

; INPUT DATA IS RETUNED N BUFFER BEGINNING AT INBUF. 


- INPUT: MOV RO,-(SP) SAVE RO ON THE STACK 
i$: #INBUF ,RO 
2$: a#vTKs 

2$ 


a#TKB,-(SP) GET CHARACTER 
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003312 


003416 


003420 


003436 


003442 
003446 
003450 
003456 
003460 
003462 


003466 


003540 


13-JUN-78 


042716 


000207 


113746 
042716 
122716 
001002 
111637 


122716 


000137 
122716 


000002 


000200 
000177 
001377 
000025 


001374 
000003 
site 
000015 
001401 
001374 


177562 
000200 
000017 
002121 
000003 


000042 


005620 
000001 
000176 
177570 
013425 
000007 


000176 
002020 


012642 


001000 
001000 


001000 


5$: 


ag INTERRUPT yet ROUTINE 
KISR: MOVB art 


INPUT SUBROUTINE 


BIC #200, (SP) 
#177, (SP) 
3$ 


~(RO), (SP)+ 


TYPE ,BKSLSH 
BR 


2$ 
CMPB #CNTRLU, (SP) 
BNE 4$ 

TST (SP)+ 

TYPE ,CRLF 

BR 1$ 


#CNTRLC,(SP) 
40$ 


a#INIT 

(SP) ,a#ECHO 
(SP), (RO)+ 
as 


BEQ 5 
TYPE ,ECHO 
BR 2$ 


TYPE ,CRLF 
MOV (SP)+,RO 
RTS PC 


o7( 


#200, (SP) 
#CNTRLO, (SP) 


1 

(SP), SCNTRLO 
#3, (SP) 

2$ 
a#42,#SENDAD 
2s 


av INIT 
#CNTRLA, (SP) 
3$ 
#SWREG, SWR 
4$ 
MOV #177570,SWR 
TYPE ,M.HSWR 
CMP + eimai (SP) 
#SWREG, SWR 


PC,GTSWR 
(SP)+ 


4 
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; CHECK RUBOUT 
;REMOVE CHARACTER FROM INPUT 


;WAIT FOR NEXT CHARACTER 
CHECK CONTROL U ( U) 


;BRANCH IF NOT CONTROL C 


sRESET 1/0 
RESTART PROGRAM 


;GET TYPED CHARACTER 
STRIP PARITY BIT 
>BRANCH IF NOT CONTROL O ( 0) 


SET CONTROL O INDICATOR IN TYPE ROUTINE 
;BRANCH IF NOT CONTROL C ( C) 
; INHIBIT C IF ACT11 QV OR AA 


;RESTART PROGRAM 

;BRANCH IF NOT A 

BRANCH IF HARDWARE SWR IS INVOKED 
; INVOKE HARDWARE SWR 

;BRANCH IF NOT G 

: INVOKE SOFTWARE SWR 

:GET NEW SWITCH REGISTER 


:POP CHARACTER OFF THE STACK 
RETURN TO CALLER 


SEQ 0043 
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- SBTT ERROR SERVICE ROUTINES 
;ROUTINE TO PROCESS ERROR TRAPS (TRAPS TO 4) 
003542 000000 ERRTRP: HALT 


ERROR SERVICE ROUTINE 

; THIS ROUTINE PROCESSES TWO TYPES OF ERRORS (OUT OF RANGE AND HARDWARE) 
;THE CALLS FOR AN OUT OF RANGE ERROR ARE <HLT+1>,<HLT+2> AND, FOR A 
HARDWARE ERROR THE CALL IS <HLT>. 


003544 004737 002354 HLT: JSR PC,.SAVE SAVE REGISTERS ON THE STACK 
001123 1$: SP ,a#ERFLG ;SET ERROR FLAG 
020000 175216 + ideas ;BRANCH IF NO TYPOUT 


014235 TYPE,E.HDR 
MOVB @#TSTNUM,R2 sGET TEST # 
PC, TYPOCT AND TYPE IT 
16(SP) ,RO ;GET RETURN PC 
000002 :NOW PC OF HLT CALL 
sNOW HLT CALL ITSELF 


$ BRANCH IF HLT 
014320 TYPE ,E.HDR2 
000002 ay + gag BRANCH IF NOT HLT+#2 
N 
002744 JSR PC ,OUTGAP TYPE GAP SPECIFIED TIMES 
001374 gee 
B 


$ 
002650 : JSR PC ,OUTSPC TYPE SPECIFIED TIMES 
001374 ae 
B 


$ 
000014 2$: ER(R5) ,RO 
002300 000032 #PE1600,TC(R5) 


20$ 
102100 4+ lca 
102300 : 4 cite 


BNE 228 
014211 Bae : TYPE SOFT ERROR MESSAGE 


003710 000434 
003712 000004 014245 : TYPE,E.HDR1 
GET FIRST std OF REGS. 


000007 TYPE FIRST 7 
:GET REG CONTENTS 
002426 JS PC, TYPOCT ZAND TYPE IT 
001407 TYPE, SPACE2 
DEC R1 


3$ 
000032 TC(R5) ,R2 :GET CONTENTS OF TC REGISTER 
002426 PC, TYPOCT 
003752 000004 001374 TYPE ,CRLF 


003756 032777 001000 175014 : #SWO09,aSWR BRANCH IF NO RING THE BELL 
003764 001402 5$ 

003766 000004 001403 TYPE ,BELL 

003772 005777 175002 : TST aSwR ;HALT ON ERROR? 


eR a a Mm MM MM MMM AM AMiMi Me MiMi Miami mie MiMami Mie MiMi wi Mi MiMemi Mi Mie MiMi MiMi Mia Mise Mi Mir Mimi mt MiMininimemse 
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003776 
004000 
004002 
004002 
004006 
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100001 
000000 


004737 002376 
000002 


ERROR SERVICE ROUTINES 


BPL 6$ 
HALT 


JSR PC,.RESTORE 
RTI 
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RESTORE REGISTERS FROM THE STACK 
; RETURN 


~N 
| 


SEQ 0045 


i 
i 
< 
i 
i 
i 
i 
4 
i 
Z 
< 
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- SBTTL SCOPE SUBROUTINE 
;SCOPE ROUTINE 


CZTUSAO TMO3/TU4S DRIVE Aw hae TIMER 
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004010 


004126 
004130 


004226 


013705 


000002 
105737 


001005 


001010 
000400 


001122 
002650 
040000 


174730 
177740 


001122 
007166 
004634 
005070 
001123 
001002 
000012 


000006 


001123 
001121 
001012 
001121 
001127 
004000 
000020 
000037 


001002 
002000 


174756 


174736 


001002 


001014 


174606 
001121 
174566 


174552 


: THIS ROUTINE IS ENTERED UPON COMPLETION OF EACH SUBTEST 
: THE SCOPE ROUTINE: 
OUTPUTS TIME SPEC ON aA ipa IF SWO8 IS SET 


REPEATS TEST IF SW14 IS 


STORES ACTUAL TIME FOR FUNCTION IN TIME TABLE (ATIMTBL) 


PUBLISHES TIME IF SW10=0 


UPDATES ITERATION COUNT AND IF ITERATIONS COMPLETE CONTINUES 
TO NEXT TEST, OTHERWISE REPEATS TEST. 

DELAYS BEFORE CONTINUING OR REPEATING TEST. 

INITIALIZES DRIVE 
R5=BASE ADDRESS OF TMO3 REGISTERS (ADDRESS OF CS1) 
R1="DS* REG ADDRESS 

RO='FC* REG ADDRESS 


: RETURNS: 


- SCOPE: MOV 
BIT 


@#TMBASE ,R5 
#SW08 ,aSWR 
10$ 
@#TSTNUM,R2 
PC ,OUTSPC 
#SW14,aSWR 
2$ 


@SWR,R1 
#177740,R1 
11$ 


R1,@@TSTNUM 
11$ 
#TSTOOO,SCPADR 
PC DELAY 
PC,RHINIT 


a#ERFLG 
SCPADR, (SP) 
R5,R1 


#FC,RO 


a@#ERFLG 

3$ 
a#ITCNT,RO 
RO 


;SET RS TO FIRST TM REG 
BRANCH IF SPECIFICATION LINE 
:NOT DESIRED ON EACH ITERATION 
:GET TEST NUMBER 

sOUTPUT TIME RECORDED 

;BRANCH IF CONTINUOS LOOP 

NOT DESIRED 

GET SWITCHES 

CLEAR ALL BUT TEST # 

BRANCH IF ALL SELECTED 
;BRANCH IF RUNNING SELECTED TEST 


;RESTART AT TSTOOO 
DELAY 350 MS 


: INIT 
;CLEAR ERROR FLAG 


;ADDRESS OF "DS" REG IS IN R1 
ADDRESS OF ‘FC REG IS IN RO 


;BRANCH IF ERROR FLAG IS SET 


;GET ITERATION COUNT 
STORE TIME IN TABLE 


petbne E ATIMTBL (RO) 


a#1TCNT 
a#PSCNT 


4$ 
#SW11,aSWR 
4$ 

#16. ,a#1TCNT 
1$ 

#37,aSWR 
428 


(SP) ,@#SCPADR 
ae eaanae 


; INCREMENT ITERATION COUNT 

: INHIBIT ITERATIONS ON 

:ON FIRST PASS 

;BRANCH IF SINGLE ITERATION DESIRED 


BRANCH IF ITERATIONS INCOMPLETE 
:IF TEST SELECTED IS TEST 0 
TESTS 


TREAT AS ALL 
;SET SCOPE ADDRESS TO NEXT TEST 


;BRANCH IF NO PUBLICATION DESIRED 
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004230 005737 005716 CHNFLG 
004234 001002 5$ 

004236 004737 003144 PC,PUBLISH 
004242 105037 001121 3 a#ITCNT 
004246 000676 1$ 


;BRANCH IF IN CHAIN MODE 


:GO PUBLISH TEST DATA 
RESET ITERATION COUNT 


-SBTTL TIMER SUBROUTINES 


; SUBROUTINE TO SYNCHRONIZE THE TIMER AND TURN IT ON. 

sREGISTER 4 IS CLEARED, AND THE OSCILLATOR POLARITY IS MONITORED 
THE ROUTINE IS EXITED WHEN THE OSCILLATOR POLARITY CHANGES WITH R3 
SET TO INDICATE THE POLARITY OF THE OSCILLATOR. 

CALL: JSR PC, TIMON 

RETURNS: ? a TO INDICATE LAST POLARITY (+24/-24=0/1) 


004250 005004 TIMON: R4 
004252 000024 #24 ,R3 
004256 000100 000024 * penned 


004264 
004266 000100 000024 ——— 
004276 000405 4$ 


004274 

004300 005403 23: R3 NEGATE PREV POLARITY INDICATOR 
004302 032765 000100 000024 3$: #OSC,MR(RS) sWAIT FOR OSCILLATOR TO RETURN 
004310 001774 3$ :TO "1" STATE 

004312 000207 4$: PC 


; SUBROUTINE TO COUNT TIME 
EACH TIME THE OSCILLATOR TOGGLES (BIT <06> IN MR REG) REGISTER 
:R4 IS INCREMENTED, AND THE REGISTER R3 IS NEGATED TO INDICATE 
: THE LAST STATE OF THE OSCILLATOR. 
:R3 IS SET BY TIMON ROUTINE 


: CALL JMP TIMER(R3) 
R2=RETURN ADDRESS TO CALLER 

:NOTE : THE TIME TO EXECUTE THIS ROUTINE IS VERY CRITICAL. IT MUST BE 

LESS THAN 40 US. 


sENTER HERE VIA JMP TIMER(R3) WHEN R3=-24 (PREV STATE=1) 
004314 032765 000100 000024 TIMER: BIT #OSC,MR(R5S) ;BRANCH IF CURRENT STATE IS ‘O' 
004322 001406 BEQ TIMER :GO INCREMENT TIME 
004324 000112 JMP (R2) :RETURN TO TEST 


004340 -=TIMER1+24 
004340 TIMER: G R3 


MMMRMMMMPMNM MM MMM NTN 


;CLEAR TIME COUNT 
SET POLARITY TO ‘0° STATE 
;BRANCH IF POLARITY IS ‘O° 


:WAIT FOR OSCILLATOR TO RETURN 


NEGATE PREV STATE INDICATOR 
; INCREMENT ‘TICK* COUNT 
BRANCH ON OVERFLOW 

;RETURN TO TEST 

:TYPE ‘TIMER OVERFLOWED' 
REPORT HARDWARE ERROR 
RETURN TO BEGINNING OF TEST 


JM 
014346 TIMERR: ee Tae 
HL 
004356 000177 174420 JMP @SCPADR 


004364 -=TIMER+24 
ENTER HERE VIA JMP  TIMER(R3) WHEN R3=+24 (PREV STATE=0) 


004364 032765 000100 000024 TIMERO: BIT 


004372 


001362 


BNE 


#OSC,MR(R5) 
TIMER 


BRANCH IF CURRENT STATE = ‘1° 





CZTUSAO TMO3/TU4S DRIVE FUNCTION TIMER 
CZTUSA.P11 


1992 
93 


004374 


004376 


004504 


004506 


004526 


13-JUN-78 
000112 


004737 


010246 
010346 


104401 


004737 
000207 


004737 


005503 


10:45 


002354 
000070 


000012 
004722 


001012 
001122 
001012 
001012 


002376 
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JMP (R2) 


; SUBROUTINE TO CHECK TIME RECORDED BY SUBTEST. 

THIS SUBROUTINE COMPUTES THE ACTUAL TIME (IN MICROSECONDS) AND CHECKS 

; THAT THE TIME RECORDED BY THE SUBTEST IS CORRECT BY COMPARING THE TIME 

WITH THE HIGH LIMIT (STIMTBL(RO)) AND THE LOW LIMIT (STIMTBL+2(RO)). 
;1F THE TIME IS OUT OF RANGE AN OUT OF RANGE ERROR TYPEOUT RESULTS. 
THE SUBROUTINE IS ENTERED WITH: 

; R4=TICK COUNT 


TIMOK: 
PC, .SAVE SAVE REGISTERS ON THE STACK 
:GET TIME PER TICK 
GET TICKS COUNT 
;CLEAR SUMMING REGISTERS 


sMULTIPLY TIME PER TICK 
:BY TICK COUNT 


1$ 
R2,-(SP) :DIVIDE COUNT BY 10. 


R3,-(SP) 

#10. ,-(SP) 

PC DIVIDE 

(SP)+ :DISCARD REMAINDER 
(SP)+,a#ATIME :STORE QUOTIENT 
ne :GET TEST # 


RO 
- aldaceatsianimcleamas ;CHECK THAT TIME IS WITHIN 


2 LIMITS SPECIFIED 
ee 


) 
e CALL ERROR ROUTINE 
; PC, .RESTORE RESTORE REGISTERS FROM THE STACK 
PC ETURN 


SUBROUTINE TO CHECK INDIVIDUAL GAP TIMES (PRODUCED BY TST021) 

:SUBROUTINE COMPUTES THE ACTUAL TIME (IN MICROSECONDS) AND CHECKS 

; THAT THE GAP TIME RECORDED BY THE SUBTEST (TSTO21) BY COMPARING THE 

TIME WITH THE MAX LIMIT (GTIMTBL-GAPTBL(R1)) AND THE MIN LIMIT 

: (GTIMTBL+2-GAPTBL(R1)). 

;CALL: MOV #TICK COUNT,R4 :R4 CONTAINS TICK COUNT 
gets a oge ;LOCATION GAP CONTAINS GAP # 

‘ K 


PC,.SAVE ;SAVE REGISTERS ON THE STACK 
#56. ,R0 GET TIME PER TICK 

R4,R1 :GET TICK COUNT 

. CLEAR SUMMING REGISTERS 


RO,R2 MULTIPLY TICK COUNT 
R3 BY TIME PER TICK 


SEQ 0048 
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2048 004530 005301 DEC R1 
sosp 004532 001374 BNE 1$ 
2051 004534 010246 MOV R2,-(SP) ;DIVIDE TIME BY 10. 
2052 004536 010346 MOV R3,-(SP) 
2053 004540 012746 000012 MOV #10.,-(SP) 
2054 004544 004737 004722 JSR PC, DIVIDE 
2055 004550 005726 TST (SP)+ DISCARD REMAINDER 
2056 004552 012637 001012 MOV (SP)+, a#ATIME STORE QUOTIENT 
2057 004556 113703 001120 MOVB @#GAP ,R3 GET GAP # 
2058 004562 006303 ASL R3 sMULTPLY BY 4 
2059 004564 006303 ASL R3 :TO GET AT TABLE ENTRY 
2060 004566 023763 001012 001556 CMP Q#ATIME ,GTIMTBL(R3) CHECK TIME (MAX) 
2061 004574 101004 BHI 2$ 
2062 004576 023763 001012 001560 CMP Q#ATIME GTIMTBL+2(R3)  ;CHECK TIME (MIN) 
2063 004604 101002 BHI 3$ 
2064 004606 104402 2$: HLT+2 REPORT OUT OF RANGE ERROR 
2065 004610 000406 BR 100$ 
2066 004612 032777 000400 174160 38: BIT #SW08 ,aSWR ;BRANCH IF TIMES NOT WANTED 
2067 004620 001402 BEQ 100$ 
oes 004622 004737 002744 JSR PC ,OUTGAP TYPE GAP TIMES 
2070 004626 100$: 
2071 004626 004737 002376 JSR PC,.RESTORE RESTORE REGISTERS FROM THE STACK 
or 004632 000207 RTS PC RETURN TO TEST 
2074 - SBTTL DELAY SUBROUTINES 
2075 ;THIS SUBROUTINE CAUSES A DELAY OF 350 MS. 
2076 004634 004737 004250 DELAY: JSR PC,TIMON 
2077 004640 010246 MOV R2,-(SP) ;SAVE R2 ON THE STACK 
2078 004642 012702 004652 MOV #2$,,R2 ;SET RETURN ADDRESS FOR TIMER 
2079 004646 1$: 
2080 004646 000163 004340 JMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
2081 004652 032704 004000 2$: BIT #4000,R4 
2082 004656 001773 BEQ 1$ 
2083 004660 012602 MOV (SP)+,R2 sRESTORE R2 
ee 004662 000207 RTS PC 
2086 : THIS SUBROUTINE ALLOWS A CALLER SPECIFIED DELAY (UP TO 65MS.) 
2087 :CALL: MOV DELAY coe DELTIM ;LOAD DELAY TIME (IN US) 
2088 JSR PC DELAYV 
2089 004664 005737 001114 DELAYV: TST DELTIM ;BRANCH IF 0 DELAY 
2090 004670 001413 BEQ 3$ 
2091 004672 004737 004250 JSR P§,TIMON ; TURN TIMER ON 
2092 004676 010246 MOV R2,-(SP) SAVE R2 ON THE STACK 
2093 004700 012702 004710 MOV #2$,R2 : SET RETURN ADDRESS FROM TIMER 
2094 004704 1$: 
2095 004704 000163 004340 JMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
2096 004710 023704 001114 2$: CMP @#DELTIM,R4 
2097 004714 101373 BHI 1$ 
2098 004716 012602 MOV (SP)+,R2 sRESTORE R2 
944 004720 000207 3$: RTS PC 
2101 -SBTTL DIVIDE SUBROUTINE 
2102 THIS SUBROUTINE DIVIDES A DOUBLE PRECISION # AND RETURNS THE RESULT 


2103 :TO THE CALLER ON THE STACK. BOTH DIVIDEND & DIVISOR MUST BE POSITIVE. 
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CALL: MOV LEAST SIGNIFICANT HALF DIVIDEND,-(SP) 
; MOV #MOST SIGNIFICANT HALF DIVIDEND,-(SP) 
: MOV #DIVISOR,-(SP) 

; JSR PC DIVIDE 

;RETURN 


: (SP)=REMAINDER ON STACK 
: 2(SP)=QUOTIENT 


NOTE: THIS SUBROUTINE DESTROYS PREVIOUS CONTENTS OF RO,R1,R2 & R3. 


005046 DIVIDE: ~(SP) SAVE LOC FOR SIGNS 
000021 M #17. ,-(SP) SET ITERATION COUNT 
000012 12(SP),R1 :GET LSH DIVIDEND 
000010 10(SP) ,RO :GET MSH DIVIDEND 
000006 6(SP),R2 GET DIVISOR 
R2 NEGATE DIVISOR 
CLEAR 'C’ BIT IN PSW 


ROTATE MSH DIVIDEND 
sSAVE IN R3 

; SUBTRACT DIVISOR FROM MSH DIVIDEND 
;BRANCH IF DIVIDEND > DIVISOR 

SAVE REMAINDER IN RO 

ROTATE LSH DIVIDEND 

:DECREMENT ITERATION COUNT 


:POP ITERATION COUNTER 


:POP SIGN CORRECTION 
000006 ;PUSH REMAINDER ON STACK 
000004 ;PUSH QUOTIENT ONTO STACK 
(SP) +, (SP) 
005010 000207 PC 


-SBTTL ORIVE SUBROUTINES 
; SUBROUTINE TO CHECK IF DRIVE IS AVAILABLE 
:CALL: MOVB DRIVE#,DRVNUM 
; JSR PC ,DRVAVA 
; RETURN: *C* BIT SET IF NOT AVAILABLE 
005012 113765 001004 000010 DRVAVA: MOVB @#DRVNUM,CS2(R5) ;LOAD DRIVE # 
othe 040000 000026 BIT oreo AA rs ;CHECK IF TAPE UNIT 
004737 005070 JSR PC,RHINIT 
000262 SEV :SET 'V' TO IND NOT AVAIL 
005036 000207 1$: RTS PC ; RETURN 


; SUBROUTINE TO CHECK IF TU45 SLAVE IS sae FOR TEST 
;CALL: MOVB DRIVE #,a#DRVNUM PASS DRIVE # VIA DRVNUM 
; SLAVE #,@#SLVNUM :PASS SLAVE # VIA SLVNUM 
: J PC,SLVAVA CALL SUBROUTINE 
005040 113765 001004 000010 SLVAVA: @#DRVNUM,CS2(R5) LOAD DRIVE # 
113765 001005 000032 M @#SLVNUM,TC(R5S) ;AND SLAVE # 
beth ot 002000 000026 + etalon :BRANCH IF SLAVE PRESENT 
000262 SET ‘V’ TO INDICATE NO SLAVE 
000207 : PC 
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;SUBROUTINE TO INITIALIZE RH CONTROLLER 
:CALL: JSR PC,RHINIT 


005070 012765 000040 000010 RHINIT: #40,CS2(R5) 
005076 001004 000010 M — 


005104 

005106 001005 @#SLVNUM, (SP) 

005112 000032 (SP)+,TC(RS) ;LOAD SLAVE # INTC TC REG 
005116 001700 000032 #NORM11,TC(RS5) 

005124 000207 PC 


; SUBROUTINE TO WAIT FOR DRIVE READY (DRY) 
005126 005027 WAITRDY:CLR (PC)+ sCLEAR WAIT TIMER 
WAITTIM: WORD 0 
000012 1$: bt — sWAIT FOR READY TO SET 
005130 INC WAITTIM : INCREMENT WAIT TIMER 
BNE 1$ sBRANCH IF TIME HAS NOT EXPIRED 
014373 TYPE ,E.TIMEXP :TYPE ‘TIME EXPIRED WAITING FOR RDY' 
BR 99$ TAKE ERROR EXIT 
002000 000012 : BIT #EOT,DS(R5) : CHECK FOR END OF TAPE 
BEQ 3$ BRANCH IF NO EOT 
013252 TYPE ,.M.NAM 
013756 TYPE ,M.EOT s TYPE ‘END OF TAPE‘ 
005232 SR PC,.REWIND REWIND SLAVE 
99$ ;BRANCH IF ERROR ON REWIND 
005314 PC WRITE sWRITE A RECORD 
(R5) SET "GO BIT 
005126 PC ,WAITRDY WAIT FOR READY 
99$ ; TAKE ERROR EXIT 
040000 000012 3$: + meat CHECK ERROR EXIT 


99$: 
005230 000207 100$: TS PC 
;SUBROUTINE TO REWIND A UNIT (DR!VE/SLAVE COMBINATION) 
:CALL MOVB DRIVE #,a#DRVNUM 
3 MOVB SLAVE #,@#SLVNUM 
; JSR PC, ..REWIND 
;SUBROUTINE RETURNS TO CALLER WITH SELECTED SLAVE AT ‘BOT’, & ‘V" SET IF 
3AN ERROR OCCURS. 


005232 004737 005070 -REWIND: JSR PC,RHINIT : INITIALIZE CONTROLLER 
005450 JSR R3,TMCMD :G0 TO TM COMMAND SUBROUTINE 
0 ;BUS ADDRESS (NOT USED) 
0 :WORD COUNT (NOT USED) 
0 ;FRAME COUNT (NOT USED) 
RWD REWIND COMMAND 
(R5) :SET 'GO' BIT 
000002 000012 : coe Aaa ;BRANCH IF ‘BOT’ SET 
040000 000012 #ERR,DS(RS) CHECK ERROR BIT 
99$ BRANCH IF ERROR BIT SET 
005274 000767 1$ 


005276 032765 020000 000012 : #PIP,DS(R5) ;WAIT FOR TAPE MOTION TO STOP 
005304 001374 23 
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BR 1008 
99$: SEV 
100$: RTS PC 


; SUBROUTINE TO WRITE ny WORD RECORD 
CALL: JSR PC,WRITE 


WRITE: — R35, TMCMD :GO TO TM COMMAND SUBROUTINE 
~W 


WTBUF ;BUS ADDRESS 
~WORD WROCNT WORD COUNT 
-WORD FRACNT ;FRAME COUNT 
-WORD WFWD ;WRITE FORWARD COMMAND 
RTS PC 


; SUBROUTINE TO READ A 256. WORD RECORD. 
CALL: JSR PC,READ 


READ: JSR R3,a#TACMD 
-WORD RDBUF ADDRESS OF READ BUFFER 
-WORD WROCNT 32°S COMPLEMENT OF WORD COUNT 


-WORD FRMCNT :2°S COMPLEMENT OF FRAME COUNT 
— _ READ FORWARD COMMAND 


; SUBROUTINE TO INITIATE READ REVERSE COMMAND 
CALL: JSR PC,REVRD 


REVRD: JSR R3, TACMD 


-WORD RDBUF +256. sADDRESS OF READ REVERSE BUFFER 


-WORD WRDCNT 32°S COMPLEMENT OF WORD COUNT 
-WORD FRMCNT 32'S COMPLEMENT OF FRAME COUNT 
-WORD RDREV READ REVERSE COMMAND 
RTS PC 
; SUBROUTINE TO SPACE FORWARD 1 RECORD 
FWDSPC: MOV #-1,FC(RS) ;LOAD RECORD COUNT 
MOV #SPCFWD+1,(R5) ;LOAD COMMAND 
JSR PC ,WAITRDY sWAIT FOR READY 
RTS PC RETURN 
;SUBROUTINE TO WRITE A RECORD AND BACK SPACE OVER THE RECORD. 
WRT.BK: JSR PC WRITE 7 WR ITE THE RECORD 
INC (R5) :SET 'GO" BIT 
JSR PC ,WAITRDY 
BVS 2s 
MOV #-1,FC(RS) ;LOAD RECORD COUNT 
MOV #SPCREV+1,(R5) ;LOAD COMMAND 
JSR PC ,WAITRDY 
BVS 2s 
1$: JSR PC,DELAY WAIT FOR TAPE MOTION TO STOP 
23: RTS PC 
; SUBROUTINE TO LOAD A COMMAND 
CALL: JSR R3, TACMD 
; -WORD BUS ADDRESS 


; -WORD WORD COUNT (2°S COMPLEMENT) 


SEQ 0052 
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FRAME COUNT (2°S COMPLEMENT) 
COMMAND 


005450 012365 000004 : (R3)+,BAC(RS) ;LOAD BUS ADDRESS 
012365 000002 ) (R3)+,WCCRS) LOAD WORD COUNT 
012365 000006 (R3)+,FC(R5S) ;LOAD FRAME COUNT 
012315 (R3)+,(R5) ;LOAD COMMAND 
000203 R3 ;RETURN 


; SUBROUTINE TO PRINT TU4S SERIAL NUMBER 
; JSR PC,SNPT 


005470 016503 000030 : SN(RS) ,R3 
005474 001144 apes 


R3 GET FIRST DIGIT 
177760 #177760,R3 
000260 #260,R3 

R3,(R1)+ FILL FIRST DIGIT 
000030 SN(R5) ,R3 


R3 
177760 #177760,R3 
000260 0,R3 
R3,(R1)¢+ :GET SECOND DIGIT 


000030 SN(RS) ,R3 
R3 


: 
177760 #177760,R3 
#260,R3 


000260 
R3,(R1)+ GET THIRD DIGIT 
000030 SN(RS) R3 
177760 #177760,R3 
000260 0,R3 
GET FOURTH DIGIT 


001144 TYPE ,ODIGITS TYPE SERIAL NUMBER 
005616 000207 RTS PC ; RETURN 
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-SBTTL PROGRAM INITIALIZATION 
005620 012706 000600 NIT: 0 #STKPTR,SP SET STACK PTR 
005624 005037 001264 C a# I NBUF 


005630 013746 ceoeee a#6,-(SP) :SAVE VECTORS 
005660 000004 SET UP FOR TIMEOUT 
177777) =: 173124 9 REFERENCE HARDWARE SWITCH REGISTER 


: (SP)+,(SP)+ ADJUST STACK 
000176 001000 : #SWREG, SWR ;POINT TO SOFTWARE SWITCH REG 
: (SP)+,a#4 sRESTORE VECTORS 
(SP)+,a#6 
@#PRGFLG ;CLEAR PROGRAM FLAG 
@#ASFLG ;CLEAR ASK FLAG 
001127 a#PSCNT SET PASS COUNT = 0 
CL (PC)+ +3 CLEAR CHAIN INDICATOR 
005716 000000 CHNFLG: 0 :CHAIN MODE INDICATOR 
::1/0 = CHAIN/NOT CHAIN MODE 
005720 022737 012642 000042 es ;;BRANCH IF LOADED VIA ACT11 CHAIN MODE 


000042 :;BRANCH IF IN DUMP MODE 


5 
000176 001000 : #SWREG, SWR 7; INVOKE SOFTWARE SWR 


100000 173024 #100000 ,aswR 3;;WITH HALT ON ERROR SET 
005716 : CHNFLG :;SET CHNFLG = CHAIN MODE 
000137 006056 J 5$ ::GO TO CHAIN ADDRESS 


122737 000006 000041 + ‘rated ;BRANCH IF NOT LOADED VIA TMDP 


BNE 
013455 TYPE, 1.REM zs ADVISE USER TO REMOVE TMDP 
TYPE ,.M.NAM 3; TYPE TITLE 
CLRB M.NAM 3D0 NOT TYPE TITLE ON RESTART 
TYPE, 1.REG ;ASK USER TO TYPE CONT BASE ADRS 
@#TMBASE ,R2 GET CURRENT CONT BASE ADDRESS 
J PC, TYPOCT ;AND TYPE IT 
TYPE ,SPACE 
JSR PC,.INPUT 3GET USER INPUT 
000015 001264 #CR, a# I NBUF 3D0 NOT CHANGE CURRENT VALUE 
5$ z1F USER TYPES <CR> 
003056 4$: PC, CNVTAO ;CONVERT ASCII TO OCTAL 
001116 001010 a#OCTALO,a#TMBASE ;SET NEW ADDRESS 
013705 001010 5$: @#TMBASE,RS5 


ROUTINE TO CHECK IF CONTROLLER (RH11) IS AVAILAABLE 
000261 SEC SET ‘C* IN PSW 
TST (R5) BRANCH IF CONTROLLER AVAIL 
BCC 6$ 
014015 oar 


INIT 
006076 012737 003542 000004 : MOV #ERRTRP ,A#ERRVEC ;SET ERROR TRAP VECTOR 
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;ROUTINE TO GET peeks DRIVES USER DESIRES ay TEST 
105037 001123 DRIVES: CLRB @#ERFLG CLEAR ERROR FLAG 
001154 Vv PDRVTBL , R1 ZMARK ALL vag’ AS NOT TO 
000004 8 #4,R0 A *O" INDICATES 


1$ 
005716 ; BRANCH IF IN CHAIN MODE 


BNE 2 
013567 TYPE, 1.DORVS 
JSR PC,.INPUT ;GET USER INPUT 
#INBUF ,RO 
000101 #°A,(RO) :1F USER RESPONDS WITH ‘A‘ OR 
2$ :<CR> THEN ALL AVAILABLE DRIVES 
000015 + eles sARE TO BE TESTED 


001124 : SP ,PRGFLG :SET FLAG TO IND ALL DRIVES 
001154 #ORVTBL ,R1 7 MARK ALL DRIVES TO BE TESTED 
000004 #4,R0 zA_‘-1" INDICATES THAT A DRIVE 
177777 : ae :1S TO BE TESTED 


3$ 
006210 000417 CHKDRV :GO CHECK DRIVE AVAILABILITY 


;GET USER SELECTED DRIVES AND MARK EACH DRIVE SELECTED TO BE TESTED 
006212 122710 000015 4$: CMPB #CR, (RO) 
CHKDRV 
000054 sO0) a» ;CHECK IF ‘COMMA’ 
(RO)+ ;STEP PTR PAST ‘COMMA’ 
: (RO)+,R1 
177770 #177770, R1 
177777 =001154 #-1, DRVTBL(R1) 


000761 4$ 
sASCERTAIN THAT DRIVES (TMO3'S) SPECIFIED ARE AVAILABLE 
005000 CHKDRV: CLR RO zA (0) IN DRVTBL(RO) INDICATES 
001154 1$: TB DRVTBL (RO) ;THE DRIVE IS NOT TO BE TESTED 
25 e :A "1" INDICATES TO BE TESTED 


000010 #8. ,RO 
1$ 


5$ 
001004 3$: RO, @#DRVNUM :GET DRIVE # 
005012 PC ,@#DRVAVA zAND CHECK IF AVAILABLE 

2$ :'V' BIT SET INDICATES NOT AVAIL 
001124 wre :D0 NOT TYPE NOT AVAILABLE 


BNE MESSAGE IF ALL SELECTED 
014062 TYPE, 


E.NDRV 
001132 014114 MOVB DIGTABCRO) @#E .NAVA SET DRIVE # IN MESSAGE 
014114 TYPE,E.N 
001123 MOVB NSP. a#ERFLG SET "ERROR' FLAG 
001154 : CLRB DRVTBL (RO) ;MARK DRIVE UNAVAILABLE 
BR 2$ CHECK NEXT DRIVE 
006342 105737 001123 : TSTB @#ERFLG :GO GET SLAVES IF NO ERROR 
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001123 
001164 
000040 


001164 
001154 


000010 
000010 


001124 
001004 
001132 
013637 
003272 
001264 
000101 
000015 


001124 


177777 


001124 


000015 


000054 


177770 
177777 


001164 
001154 


013656 


;ROUTINE TO GET 
SLAVES: CLRB a@#ERFLG 
MOV 


BNE DRIVES 


#SLVTBL,R1 
MOV #32.,R0 
1$: CLR (R1)+ 
DEC RO 
BNE 1$ 
MOV #SLVTBL,R1 
23: TSTB DRVTBL (RO) 
BNE 4$ 
3$: ADD #8.,R1 
INC RO 
CMPB #8.,R0 
BNE 2$ 
BR CHKSLV 
4$: TSTB @#PRGFLG 
BNE 5$ 
MOVB RO,DRVNUM 
MOVB DIGTAB(RO) ,a#1.DRV 
TYPE,I.SLVS 
JSR PC,.INPUT 
MOV #INBUF ,R3 
CMPB #'A,(R3) 
BEQ 5$ 
CMPB #CR,(R3) 
BNE 7$ 
5$: MOVB SP, a#PRGFLG 
MOV #SLVTBL,R1 
MOV #32.,R 
6$: MOV #-1,(R1)+ 
DEC RO 
BNE 6$ 
TSTB @#PRGFLG 
BNE CHKSLV 
7$: CMPB #CR,(R3) 
BEQ 3$ 
CMPB (R3),#', 
BNE 8$ 
TSTB (R3)+ 
8$: MOVB (R3)+,R4 
BIC #177770,R4 
ADD R1,R4 
MOVB #-1,(R4) 
BR 7$ 
sASCERTAIN THAT 
CHKSLV: CLR 
CLR R1 
MOV #SLVTBL,R2 
1$: TSTB DRVTBL (RO) 
BNE 3$ 
2s: INC RO 


SEQ 0056 Ci 


sELSE ASK USER TO RETYPE DRIVES 


SLAVES (TU45'"S) USER DESIRES TO TEST 

: CLEAR ERROR INDICATOR 
sMARK ALL SLAVES (64.) AS NOT 
;TO BE TESTED.A 0 INDICATES THAT 
zA DRIVE'S SLAVE IS NOT TO BE 
; TESTED 


;R1 POINTS TO DRIVE'S SLAVE 
;BRANCH IF DRIVE IS TO BE TESTED 
:& IS AVAILABLE 

;STEP SLAVE PTR TO NEXT DRIVE'S 
SLAVES AND INCREMENT DRIVE # 
CHECK ALL DRIVES 

;AND WHEN ALL DRIVES CHECKED 

:GO CHECK SLAVE AVAILABILITY 


:BRANCH IF USER SELECTED ALL 
DRIVES 


“GET DRIVE # 
“PREPARE USER ACTION MESSAGE 


:GET USER INPUT 


;SET PTR TO USER INPUT 
37AN ‘A OR <CR> AS FIRST CHAR 
: INDICATES TEST ALL SLAVES 


SET "ALL" INDICATOR 
MARK ALL SLAVES FOR ALL 
DRIVES AS TO BE TESTED 


BRANCH IF ALL WAS SELECTED 


GET USER SELECTED SLAVES FOR 
:DRIVE 
:STEP PTR PAST ‘COMMA* 


AND MARK SELECED SLAVE 
sAS TO BE TESTED 


anne (TU45'S) SELECTED ARE AVAILABLE 


;RO WILL CONTAIN _ DRIVE # 
;AND R1 THE SLAVE # 


:SET PTR TO SLAVE TABLE 
:BRANCH IF DRIVE SELECTED 
;& AVAILABLE FOR TEST 

; INCREMENT DRIVE # 


CZTUSAO TMO3/TU4S DRIVE FUNCTION TIMER 
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062702 000010 
000010 


000437 
005001 


000010 
006634 000760 
006636 110037 001004 
001005 
005040 
001124 


001132 014104 
014114 


001123 
006710 000744 


006712 105737 001123 
006716 001214 
006720 012737 003542 000004 


006726 105037 001004 
006732 105037 
006736 012737 
006744 105037 001125 


001006 


006750 113700 001004 

006754 113701 001005 

006760 013702 001006 

006764 122737 000006 000041 
006772 001001 

006774 105012 


105760 001154 


000010 
000010 
007022 000137 012570 
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#8. ,R2 


RO, @#DRVNUM 
R1,@#SLVNUM 
PC ,@#SLVAVA 


5$ 

a@#PRGFLG 

7$ 

DIGTAB(RO) ,a#E .DRV 
MOVB DIGTAB(R1) ,@#E .NAVA 
TYPE,E.NSLV 
MOVB SP ,a#ERFLG 


7$: (R2) 
5$ 


8$: @#ERFLG 
B SLAVES 
100$: #WERRTRP ,@#ERRVEC 


57 


SEQ 0057 


;STEP SLAVE PTR TO NEXT DRIVE'S 
SLAVES. BRANCH TO 1$ IF NOT ALL 
DRIVES CHECKED OTHERWISE EXIT 


;SET SLAVE # 0 

;BRANCH IF DRIVE'S SLAVE IS SEL- 
sECTED FOR TEST 

: INCREMENT SLAVE # 

:STEP PTR TO NEXT SLAVE 

:GO TO 4$ IF ALL SLAVES NOT 

; CHECKED 

OTHERWISE GO TO 2$ ABOVE 


PASS DRIVE & SLAVE # 


AND CHECK IF AVAILABLE 

;"V" SET INDCATES ERROR 

:DO0 NOT TYPE ERROR MSG IF ALL 
SLAVES SELECTED 

: ICATES ERROR. PREPARE ERROR 
; MESSAGE 


SET ERROR INDICATOR 
:CLEAR SLAVE TABLE ENTRY 
;GET NEXT SLAVE 


;BRANCH IF ERROR 
sASK USER TO RETYPE SLAVES 


;SCAN DRIVE AND SLAVE TABLE FOR DRIVE/SLAVE COMBINATION TO TEST. 


RESTART ADDRESS--PROGRAM STARTS HERE WHEN START ADDRESS = 
SET DRIVE AND SLAVE # 0 


:SET PTR TO SLAVE TABLE 
;CLEAR ‘UNIT FOUND’ IND. 


zAFTER EACH PASS 

RSTRT: CLRB a#0RVNUM 
CLRB @#SLVNUM 
MOV #SLVTBL ,@#SLVPTR 
CLRB @#UNTFND 


210 AND 


ey mg RESTARTS HERE AFTER EACH DRIVE/SLAVE HAS — TESTED. 
BEGIN: MOVB at GET DRIVE # 


DRVNUM,RO 
@#SLVNUM,R1 
a#SLVPTR,R2 
+ Cat 


(R2) 
DRVTBL (RO) 
3$ 


AND SLAVE # 
GET SLAVE PTR 


:BRANCH IF LOADED VIA TMDP 


:SET DRIVE #0,SLAVE #0 NOT TO 
;BE TESTED. 
;BRANCH IF DRIVE AVAIL TO TEST 


CLEAR SLAVE # 
AND STEP PTR TO NEXT DRIVE'S 
SLAVES AND INCREMENT DRIVE # 


EXIT TEST IF ALL DRIVES 
; CHECKED OTHERWISE CONTINUE 
;SCAN FOR NEXT ‘UNIT 
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007026 105712 3$: ;BRANCH IF SLAVE ON DRIVE IS 
$ AVAILABLE THERWISE STEP 
;PTR TO NEXT SLAVE 
INCREMENT SLAVE # 
000010 . ;UNTIL ALL SLAVES CHECKED 
;WHEN ALL SLAVES CHECKED 
;SET SLAVE # 0 
007046 000761 AND CONTINUE SCAN 


007050 110637 001125 : SP ,@#UNTFND ; INDICATE THAT A ‘UNIT IS FOUND 
007054 110037 001004 RO, @#DRVNUM SET DRIVE 3 
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007060 110137 001005 R1,a#SLVNUM sSET SLAVE # 
007064 010237 001006 R2,@#SLVPTR ;SAVE SLAVE PTR 


007070 105737 001130 : — 


B 
000001 001130 #1,ASFLG 
005716 T es :BRANCH IF IN CHAIN MODE 
001124 @#PRGFLG ;CLEAR PROGRAM INDICATOR 
013723 TYPE,1.SPO ASK USER IF HE WANTS TO RUN SPEED TESTS 
003272 SR PC,.INPUT te USER INPUT 
001264 #INBUF ,R3 :GET REPLY 
000015 #CR,(R3) :DO NOT DO SKEW TESTS IF <CR> IS FIRST 


6$ 
000001 — ;BRANCH IF ‘N' 


001124 (R3),@#PRGFLG ;SET INDICATOR 
000176 001000 6$: #SWREG, SWR BRANCH IF SOFTWARE SWR 
7$ ;NOT INVOKED 
004737 002020 PC.GTSWR :GET SWITCH REGISTER 
007166 7$: 


sNOTE THIS IS NOT A TEST 
; INITIALIZE PROGRAM FLAGS 
007166 013705 001010 TSTOOO: MOV SH peer SET ADDRESS OF FIRST TMO3 REG 
R 


000006 #FCRO ;RO CONTAINS ADDRESS OF FC REG 

000012 #0S,R1 3R1 CONTAINS ADDRESS OF DS REG 

004340 #TIMER,R3 SET JUMP ADDRESS TO TIMER 

001121 a#ITCNT ;CLEAR SUBTEST ITERATION COUNT 
007216 052737 000100 177560 #100,a#TKS ;SET KEYBOARD IE BIT 


:GET USER RUN PROCEDURE 
z1F SWR <05::00> IS NOT 0 THEN RUN TEST IN SWR<05::00> 
OTHERWISE RUN ALL TESTS 


007224 004737 005232 PC, .REWIND REWIND SLAVE 
99$ BRANCH IF ERROR ON REWIND 
005314 PC WRITE ;WRITE A RECORD 
(R5) SET "GO" BIT 
005126 2 aedenets sWAIT FOR READY 


005716 — :BRANCH IF IN CHAIN MODE 


171520 @SWR,R2 GET SWITCHES 
17774¢ #177740,R2 :CLEAR ALL BUT TEST # 

E 23 ;& BRANCH IF TEST 0 WAS SELECTED 
014235 TYPE ,E.HDR TYPE TEST # 


002426 PC, TYPOCT 
R2 sFORM INDEX VALUE 
001656 007310 NAMPTR(R2) ,1$ :GET ADDRESS OF TEST'S NAME 
PE :AND TYPE IT 


001374 CRLF 
007316 016237 001736 001002 MOV TSTTBL(R2) ,@#SCPADR :SET SCOPE ADDRESS FOR TEST 
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007324 000172 001736 JMP @TSTTBL(R2) :G0 TO TEST 
2s: TYPE ,L.HOR1 
MOVB DRVNUM ,R2 GET DRIVE # 
MOVB SLVNUM,R4 ;AND SLAVE # 
014624 MOVB DIGTAB(R2) ,a#L .DRV SET DRIVE AND SLAVE #'S 
014636 MOVB DIGTAB(R4) ,@#L.SLV ; INTO L.HDR2 MESSAGE 
014641 MOVB #'9,a#L.CHAN ;GET SLAVES CHANNEL TYPE 
TYPE ,L.HDR2 
JSR PC, SNPT PRINT SLAVE SERIAL # 
TYPE ,L.HDRS 
001124 TSTB @#PRGFLG ;BRANCH IF SPEED TESTS NOT 
100$ ; SELECTED 
012714 001002 #TST026 ,a#SCPADR :SET SCOPE LOOP ADDRESS 
012706 @#SKEWTST :GO DO SPEED TESTS 


99$: 
007424 012737 007432 001002 100$: #TSTO01,@#SCPADR ;SET SCOPE LOOP ADDRESS 
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CZTUSA.P11 


007432 


007462 


007464 
007470 
007472 


007476 
007502 
007504 
007510 
007512 
007514 


007516 
007524 
007530 
007534 
007540 


007542 
007546 
007550 


007554 
007560 
007562 
007566 


007570 
007572 


007574 
007602 
007606 


007610 


007620 


112737 


005215 


005765 
100002 
000163 


004737 
102403 
004737 
000401 
104400 
104000 


112737 
004737 
012702 
004737 
005215 


005765 
100002 
000163 


004737 
102403 
004737 
000401 


104400 
104000 


112737 
004737 
005215 


005710 
001404 
032711 
001017 


FUNCTION TIMER 


000001 
007464 
005232 
005314 
004250 
000032 
004340 
005126 


004376 


000002 
005314 
007542 
004250 
000032 
004340 
005126 


004376 


000003 
005314 


040000 


001122 


001122 


001122 
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-SBTTL START OF TESTS 
TEST 001 - WRITE FROM BOT 
sTHIS TEST WILL MEASURE ACCELERATION DELAY REQUIRED TO 
s;MOVE THE TAPE APPROXIMATELY SEVEN (7) INCHES FORWARD 


;FROM DEAD STOP BEFORE STARTING TO TRANSFER DATA. 
; THIS i oa TIME FROM ‘GO'=1 TO ‘ACCL*= 


TST001: #1,a#TSTNUM 


#1$,R2 
PC,.REWIND 
99$ 


PC,WRITE 
PC, TIMON 
(R5) 
TC(RS) 
23 
TIMER(R3) 

2s: PC ,WAITRDY 
99$ 
PC, TIMOK 
100$ 

99$: 

100$: SCOPE 


sTEST 002 - WRITE START 


7 SET TEST # 
;SET RETURN PC FROM TIMER 


REWIND SLAVE 

;BRANCH IF ERROR ON REWIND 
:GO SETUP WRITE COMMAND 
TURN TIMER ON 

SET ‘GO BIT 


;BRANCH WHEN ‘ACCL‘=0 
:GO TO TIMER & RETURN VIA R2 
sWAIT FOR yong TO FINISH 


;BRANCH IF ERRO 
:GO CHECK TIME 


; THIS TST MEASURES TIME FROM ‘GO'=1 TO ‘ACCL'=0. 


TSTO002: ny #2,a#TSTNUM 


TC(RS) 
2$ 
TIMER(R3) 


PC, WAITRDY 
99$ 
PC, TIMOK 
100$ 
99$: H 
100$: SCOPE 
sTEST 003- WRITE SHUTDOWN 


SET TEST # 2 

INITIATE WRITE COMMAND 

;SET RETURN PC FROM TIMER 
SET ‘'GO" BIT 

;BRANCH WHEN ‘ACCL‘=0 

:GO TO TIMER & RETURN VIA R2 
WAIT FOR READY 

BRANCH IF ERROR 

:GO CHECK TIME RECORDED 
sEXIT VIA SCOPE 


REPORT ERROR 


THIS TEST weary TIME FROM ‘FC REG'=0 TO "SWDON'=1. 


TST003: MOVB #3, a#TSTNUM 
JSR PC WRITE 
INC (R5) 

1$: (RO) 


23 
#ERR,(R1) 
99$ 


SET TEST#S 
INITIATE WRITE COMMAND 
:SET ‘GO* BIT 


;BRANCH WHEN WRITING FINISHED 
;MONITOR ERROR BIT 


SEQ 0061 





Qad Crd Cd Cd Gat Cd Gd Cd rd Gd Cd Cd Cd Gad Cal Cd Gd Gad Gd Gad Cd Cd rd Gal Gd rd ad ad ad Cad Cad Cd Gal Cad Gal ON Od Cd Cad Cd Cal Cal Ca Cal Ca 
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007622 000772 BR 1$ 


007624 2$: 
004737 004250 PC, TIMON ; TURN TIMER ON 
010702 PC,R2 ;LOAD RETURN PC FROM TIMER 
sateas 000020 3$: mest BRANCH WHEN DS <SDWN> SETS 
007640 000163 004340 TIMER(R3) :GO TO TIMER & RETURN VIA R2 


007644 004737 005126 : PC ,WAITRDY ;WAIT FOR READY 
102403 99% 
004737 004376 PC, TIMOK :GO CHECK TIME RECORDED 
000401 B 100% 
104400 99$: REPORT ERROR 
104000 100$: SCOPE 


TEST 004 - WRITE SETTLEDOWN 

; THIS TEST MEASURES TIME FROM ‘SWON'=1 TO ‘SWDN'=0. 
007664 112737 000004 001122 TST004: move #4, a#TSTNUM 
007672 004737 005314 SR PC WRITE 
007676 005215 (R5) SET *GO" BIT 


007700 005710 : (RO) BRANCH WHEN WRITING FINISHED 
007702 001404 2$ 

007704 032711 040000 #ERR,(R1) ;CHECK ERROR BIT 

007710 001026 99$ 

007712 000772 1$ 


007714 032711 000020 : * ete teat ;WAIT FOR ASSERTION OF ‘SDWN' 
040000 + hy cin ;MONITOR ERROR BIT 
007730 000771 2$ 


007732 : 
004737 004250 PC, TIMON TURN TIMER ON 

010702 PC,R2 ;SET RETURN PC FROM TIMER 
oiae 000020 eect BRANCH WHEN SWDN CLEARS 
007746 000163 004340 TIMER(R3) :GO TO TIMER & RETURN VIA R2 


007752 004737 005126 : PC ,WAITRDY WAIT FOR READY 
007756 102403 99$ 

007760 004737 004376 PC, TIMOK 

007764 000401 1008 


007766 104400 99$: H 
007770 104000 100$: SCOPE 


dea 005 - READ FROM BOT 
S_TEST MEASURES i # — *GO*=1 TO ‘ACCL*=0. 
007772 112737 000005 001122 $1005: MOVB #5,a#TS SET TEST #5 
005232 PC, REWIND ;REWIND SLAVE 
998 ;BRANCH IF ERROR ON REWIND 
005332 PC ,READ 


0 
010012 012702 010024 MOV #1$,R2 ;SET RETURN PC FROM TIMER 





ad rd rd nd Gd nt rd Gd rd rd Gt rd dt rd rt Gd Gd Gd rd Grd Gd rd Gt ad rd rd Gd Gd rt rd rd rd Od rd ad Od rd Od rd rd Gd rd rd rd rd rd rd Gd Cd Cd CV A A 
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010016 004737 004250 PC, TIMON ; TURN TIMER ON 
010022 005215 (R5) :SET 'GO' BIT 


010024 005765 000032 : TC(RS) ;BRANCH WHEN "ACCL' RESETS 
010030 100002 2$ 
010032 000163 004340 TIMER (R3) :GO TO TIMER & RETURN VIA R2 


010036 004737 005126 : PC ,WAITRDY WAIT FOR READY 
102403 99$ ;BRANCH IF ERROR 
004737 004376 PC, TIMOK CHECK RECORDED TIME 
000401 100$ 


010052 104400 99$: 
010054 104000 100$: SCOPE 


TEST 006 - READ START 
THIS TEST MEASURES TIME FROM "GO'=1 TO ‘ACCL*=0. 
010056 112737 000006 001122 TST006: MOVE #6,a#TSTNUM SET TEST #6 
004737 005406 JSR PC.WRT .BK WRITE A RECORD & BACK SPACE 
102422 9 
004737 005332 
012702 010110 ;SET RETURN PC FROM TIMER 
004737 004250 ; TURN TIMER ON 
010106 005215 R5 SET ‘GO’ BIT 


010110 005765 000032 : BRANCH WHEN ‘ACCL' RESETS 
010114 100002 2$ 
010116 000163 004340 TIMER(R3) :GO TO TIMER & RETURN VIA R2 


010122 004737 005126 : PC ,WAITRDY 
010126 102403 99$ 
010130 004737 004376 PC, TIMOK 
010134 000401 100$ 


010136 104400 99$: 
010140 104000 100$: SCOPE 


:TEST 007 - READ SHUTDOWN 
; THIS TEST MEASURES TIME FROM "FC REG'=FRAME COUNT TO ‘SWDN‘=1. 
010142 112737 000007 001122 TST007: MOVB #7, a#TSTNUM sSET TEST #7 
005406 JSR PC ,WRT.BK ;WRITE A RECORD & BACK SPACE 
99$ ;BRANCH IF ERROR 
005332 PC,READ 
010162 005215 (R5) :SET *GO* BIT 


010164 022710 000400 : #~-FRMCNT, (RO) :WAIT FOR FRAME COUNT TO 
010170 001404 2$ = # OF FRAMES WRITTEN 
010172 032711 040000 #ERR,(R1) MONITOR ERROR BIT 
010176 001017 99$ 

010200 000771 1$ 


010202 


WAWww 


004737 004250 : PC, TIMON : TURN TIMER ON 
PCR2 :SET RETURN PC FROM TIMER 
000020 #SDUN, (RI) :BRANCH WHEN SDWN SETS 


010214 001002 
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010216 000163 004340 TIMER(R3) :GO TO TIMER & RETURN VIA R2 


010222 004737 005126 3$: PC ,WAITRDY 
010226 102403 99$ 
010230 004737 004376 PC, TIMOK 
010234 000401 100$ 


010236 104400 99$: ;REPORT ERROR 
010240 104000 100$: SCOPE 


TEST 010 - READ SETTLEDOWN 
THIS TEST MEASURES TIME FROM ‘'SWDON'=1 TO ‘SWDN'=0. 
010242 112737 000010 001122 TST010: MOVB #10,a#TSTNUM SET TEST #10 
010326 V #4$,R2 ;SET RETURN PC FROM TIMER 
005406 = ects sWRITE A RECORD & BACK SPACE 
005332 PC, READ 
010266 005215 (R5) ;SET 'GO* BIT 


010270 105711 : (R1) WAIT FOR READY 
010272 2$ BRANCH WHEN SET 
010274 040000 #ERR,(R1) CHECK ERROR BIT 
010300 99$ 
010302 000772 1$ 


010304 032711 000020 : —— sWAIT FOR ASSERTION OF ‘SDWN’ 


3 
040000 ——— :MONITOR ERROR BIT 
010320 000771 2$ 
010322 


004737 004250 F PC, TIMON : TURN TIMER ON 
052765 000020 000012 4s: #SDUN,DS(RS) :WAIT FOR NEGATION OF SDWN 
000163 004340 TIMER(R3) :GO TO TIMER & RETURN VIA R2 


010342 004737 005126 : PC ,WAITRDY 
010346 99$ 
010350 004376 PC, TIMOK 
010354 000401 100$ 


010356 104400 99$: 
010360 104000 100$: SCOPE 


TEST 011-READ REVERSE START 
HIS TEST MEASURES TIME FROM ‘GO'=1 TO ‘ACCL'=0. 
010362 112737 000011 001122 tsT0it. MOVB #11, a#TSTNUM 
010426 #1$.R2 7SET RETURN PC FROM TIMER 
005314 PC RITE WRITE A RECORD 


5 :SET *GO' BIT 
005126 PC ,WAITRDY 
99$ 


004634 PC,DELAY ;WAIT FOR TAPE MOTION TO STOP 
010414 004737 005350 PC,REVRD 
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010420 004757 004250 PC, TIMON 
010424 005215 (R5) 


010426 005765 000032 
010432 100002 
010434 000163 004340 


010440 004737 005126 
102403 
004737 004376 
“010452 000401 


010454 104400 99$: 
010456 104000 100$: SCOPE 


TEST 012-READ REVERSE SHUTDOWN 
; THIS TEST MEASURES TIME FROM ‘FC REG' 
010460 112737 000012 001122 TSTO12: MOVB #12,a4TSTNUM 
010536 Vv #3$,R2 
005314 PC WRITE 
(R5) 


005126 PC ,WAITRDY 
99% 

005350 PC,REVRD 
(R5) 


SEQ 0065 


; TURN TIMER ON 
;SET "GO" BIT 


;BRANCH WHEN ‘ACCL' = 0 
:GO TO TIMER & RETURN VIA R2 


TC(RS) 

2$ 
TIMER(R3) 
PC ,WAITRDY 
99% 

PC, TIMOK 
100$ 


BRANCH IF ERROR 


= FRAME COUNT TO ‘SDWN‘=1. 
;SET RETURN PC FROM TIMER 


sWRITE A RECORD 
;SET 'GO" BIT 


010512 005215 
010514 022710 000400 
040000 


SET "GO" BIT 


;BRANCH WHEN FRAME COUNT 
;= # OF RECORD WRITTEN 
;MONITOR ERROR BIT IN "DS" REG 


#-FRMCNT, (RO) 


2$ 
#ERR,(R1) 
99% 
010530 000771 1$ 
010532 


010544 
010550 


010562 


010564 
010566 


010570 


004737 
032711 
001002 
000163 


004737 


000401 


104400 
104000 


112737 


005215 


004250 
000020 


004340 
005126 
004376 


000013 
010662 
005314 
005126 


005350 


99$: 
100$: SCOPE 


PC,TIMON 
+ emcee 


4 
TIMER(R3) 
PC, ,WAITRDY 
99$ 

PC, TIMOK 
100$ 


feat Q13-READ REVERSE SETTLEDOWN 
HIS TEST MEASURES TIME FROM 'SDWN'=1 TO ‘SDWN'=0. 


001122 $1013: MOVB 
MOV 


#13,a@TSTNUM 
#4$.R2 

PC ,WRITE 
(R5) 

PC ,WAITROY 
99% 


PC .REVRD 
(R5) 


; TURN TIMER ON 
;BRANCH WHEN SDWN SETS 


3G0 TO TIMER & RETURN VIA R2 
sWAIT FOR READY 


;SET RETURN PC FROM TIMER 
sWRITE A RECORD 
SET ‘GO’ BIT 


:SET *GO* BIT 
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010674 
010700 
010702 
010706 


010710 
010712 


010714 


010730 


010730 


010754 


010756 
010762 
010766 


010770 
010774 
010776 


011002 
011006 
011010 


13-JUN-78 10: 


105711 


000772 
032711 
001004 
032711 


001016 
000771 


004737 


000163 
004737 


000401 


104400 
104000 


004737 


000772 


112737 


102420 


004737 
004737 
005215 


005765 
100002 
000163 


004737 
102403 
004737 


040000 


000020 
040000 


004250 
000020 


004340 
005126 
004376 


005232 


000014 
010770 
005314 
005126 
005350 
00425¢ 
000032 
004340 
005126 
004376 


001122 


1$: 


99$: 


100$: SCOPE 
— DRIVE 


99$: 
100$: 


B 
13-JUN-78 


(R1) 

2$ 
WERR,(R1) 
99% 

1$ 

#SDWN, (R1) 
3$ 
#ERR,(R1) 
99% 

2s 

PC, TIMON 
#SOWN, (R1) 
5$ 
TIMER(R3) 
PC ,WAITRDY 
99$ 

PC, TIMOK 
100$ 


PC,.REWIND 
99$ 

100$ 

A 


66 


;BRANCH WHEN 
;READY SETS 


;TURN TIMER ON 
;BRANCH WHEN SWDN = 0 


:GO TO TIMER & RETURN VIA R2 
sWAIT FOR READY 


REWIND SLAVE 
;BRANCH IF ERROR ON REWIND 


: TEST 014-TURN AROUND DELAY (FORWARD-REVERSE) 
THIS TEST MEASURES TIME FROM ‘GO'=1 (READ REVERSE) TO ‘ACCL*=0 


TST014: MOVB 


#14, a#TSTNUM 
#2$,R2 

PC WRITE 
(R5) 

PC ,WAITRDY 
99$ 
PC,REVRD 
PC, TIMON 
(R5) 
TC(R5) 

3$ 
TIMER(R3) 
PC ,WAITRDY 
99$ 


PC, TIMOK 


;SET RETURN PC FROM TIMER 
WRITE A RECORD 
;SET ‘GO’ BIT 


READ THE RECORD (REVERSE) 
; TURN TIMER ON 

;SET "GO" BIT 

WAIT FOR ‘ACCL* = 0 


:GO TO TIMER & RETURN VIA R2 








- 
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011014 000401 BR 1008 


011016 104400 99$: HLT 
011020 104000 100$: SCOPE 


;TEST 015- TURN AROUND DELAY (REVERSE-FORWARD) 
; THIS TEST MEASURES TIME FROM 'GO*=1 (READ) TO ‘ACCL'=0. 
011022 112737 000015 001122 TsT015: mMOvB #15,a#TSTNUM 
011076 MOV #2$,R2 SET RETURN + I cee TIMER 


005314 PC,WRITE ‘WRITE A RECO 
(R5) :SET 'GO' BIT 
005126 PC -WAITRDY [WAIT FOR READY 


005350 PC,REVRD s;READ A RECORD IN THE 
011054 005215 (R5) SET 'GO* BIT 


011056 004737 005126 PC ,WAITRDY 
011062 102420 99$ 


011064 004737 005332 : PC,READ READ RECORD FORWARD 
011070 004737 004250 PC, TIMON : TURN TIMER ON 
011074 005215 (R5) s;SET GO" BIT 


005765 000032 : TC(R5S) sWAIT FOR ‘ACCL* = 0 
100002 3$ 
000163 004340 TIMER(R3) :GO TO TIMER & RETURN VIA R2 


004737 005126 : PC ,WAITRDY 
99$ 


004376 PC, TIMOK 
000401 100$ 


104400 99$: 
104000 100$: SCOPE 


:TEST 016-GAP SIZE (STOP HALF) 
112737 000016 001122 TSTO16: MOVB #16, a#TSTNUM 
011174 0 #1$,R2 ;SET RETURN PC FROM TIMER 
005314 an WRITE A RECORD 


R :SET *GO" BIT 
005126 PC,WAITRDY 
99$ 


004634 PC DELAY sDELAY 350 MS 

005350 PC,REVRD READ REVERSE RECORD 

004250 PC,TIMON ; TURN TIMER ON 
005215 (R5) :SET GO" BIT 


005710 : (RO) WAIT FOR FRAME COUNT > 0 
001002 2$ 
000163 004340 TIMER (R3) :GO TO TIMER & RETURN VIA R2 


004737 005126 : PC,WAITRDY s;WAIT FOR READY BIT TO SET 
102403 99$ 

004737 004376 PC, TIMOK CHECK TIME 

000401 100$ 


-—-=—-=-9 SNN NOOUUMUNS LWW 
ANOf SOL VMOWOLOGSWAO 
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011220 104400 998: HLT 
011222 104000 100$: SCOPE 


;TEST_017-GAP SIZE (START HALF) 
011224 112737 000017 001122 TST017: Mov #17, a#TSTNUM 
011304 1$,R2 


005314 PC WRITE 
005126 PC -WALTROY ‘WAIT FOR READY 


005350 PC,REVRD READ REVERSE THE RECORD 
(R5) SET 'GO* BIT 
005126 PC,WAITRDY [WAIT FOR READY 
99$ BRANCH ON ERROR 
004634 PC DELAY ;WAIT FOR TAPE MOTION TO STOP 
005332 PC,READ READ RECORD 
004250 PC, TIMON TURN TIMER ON 
011302 005215 (R5) ;SET "GO" BIT 


011304 005710 : (RO) WAIT FOR FRAME COUNT > 0 
011306 001002 2$ 
011310 000163 004340 TIMER(R3) :GO TO TIMER & RETURN VIA R2 


SET RETURN + ie TIMER 


011320 102403 
011322 004737 004376 + a CHECK TIME 


011314 004737 005126 : — ;WAIT FOR READY 


011326 000401 


011330 104400 99$: 
011332 104000 100$: SCOPE 


:TEST 020- GAP SIZE (INTERRECORD) 
THIS TEST MEASURES TIME FROM ‘'GO'=1 TO ‘FC REG’ >0. 
011334 112737 000020 001122 7$1020: MOVB #20,a#TSTNUM 
011424 MOV #1$,R2 SET RETURN PC FROM TIMER 
005314 AP sais ; RD 


005126 cis WAIT FOR READY 


005314 PC WRITE WRITE SECOND RECORD 
(R5) SET 'GO* BIT 
005126 —-" WAIT FOR READY 


005350 PC,REVRD READ REVERSE SECOND RECORD 
(R5) ;SET *GO* BIT 
005126 Faas WAIT FOR READY 


005350 PC,REVRD READ REVERSE FIRST RECORD 
004250 PC, TIMON ; TURN TIMER ON 
011422 005215 (R5) :SET ‘GO’ BIT 


011424 005710 : (RO) ;WAIT FOR FRAME COUNT > 0 
011426 001002 2$ 
011430 000163 004340 TIMER(R3) :GO TO TIMER & RETURN VIA R2 


011434 004737 005126 : PC ,WAITRDY WAIT FOR READY 





on 


CZTUSAO TMO3/TU4S DRIVE ia TIMER 


CZTUSA.P11 


011440 
011442 
011446 


011450 
011452 


011454 


011534 
011536 


011560 


011562 
011566 
011572 
011576 


011600 
011604 
011606 
011612 
011616 


011620 
011624 
011626 


WAIN AIAN 
ed ed ed ed ed ed ed ed eed ed 
NM Se ow or es 
So OONOAMUSWwh— 


13-JUN-78 
102403 
004737 
000401 


104400 
104000 


112737 


001363 
012700 


001370 


012700 
012701 
004737 
005215 


004737 


005215 


005765 
001002 
000163 


10:4 


004376 


000021 
011620 
005232 
001114 
000021 
005314 
005126 


004664 
000022 


000021 
005350 


005126 


000020 
001054 
005332 
005126 
005332 
004250 
000006 
004340 


001122 


001114 


E 
MACY11 30(1046) 13-JUN-78 


START OF TESTS 
BVS 99% 
JSR PC, TIMOK 
BR 100% 


99$: HLT 
100$: SCOPE 


TEST O021- GAP CONSISTANCY 


6 
13:49 PAGE 69 


THIS TEST MEASURES TIME FROM 'GO'=1 TO ‘FC REG’ > 0. 

THE TEST REWINDS THE TAPE,WRITES 17 RECORDS WITH A DELAY FROM 1-16 MS 
;BETWEEN EACH WRITE COMMAND. AFTER THE 17. RECORDS ARE WRITTTEN THE 
;PROGRAM READ REVERSES 16 RECORDS. AT THIS POINT THE TAPE IS STOPPED BE- 
; TWEEN THE FIRST AND SECOND RECORD. A READ COMMAND IS EXECUTED TO READ 
:THE 16 RECORDS WITH THE TIME BETEWEN GO=1 TO FC > 0 STORED IN ‘GAPTBL‘ 
;FOR EALH RECORD READ. AFTER 16 RECORDS HAVE BEEN READ THE TIME IS VER- 
IFIED FOR EACH READ. AFTER ALL RECORD TIMES ARE VERIFIED THEY ARE AVER- 
s;AGED AND PLACED IN THE ‘ATIMTBL" (BY SCOPE). THE ABOVE PROCESS IS RE- 


;PEATED FOR EACH ITERATION. 
#21,a#TSTNUM 
#4$,R2 


TSTO21: MOVB 
MO 


PC,.REWIND 
99% 

DELTIM 
#17. ,R0 

PC WRITE 
(R5) 

PC ,WAITRDY 
99% 
PC,DELAYV 


#18. ,DELTIM 
RO 


1$ 


#17.,R0 
PC,REVRD 


(R5) 

PC ,WAITRDY 
99$ 

RO 

2$ 

#16. ,RO 
#GAPTBL,R1 
PC,READ 
(R5) 

PC ,WAITRDY 
99$ 
PC,READ 
PC,TIMON 
(R5) 
FC(R5) 

5$ 


TIMER(R3) 


:SET RETURN PC FROM TIMER 
REWIND SLAVE 

;BRANCH IF ERROR ON REWIND 
;CLEAR VARIABLE DELAY TIME 
:SET # OF RECORDS TO WRITE 
WRITE 17. RECORDS 

:SET ‘GO’ BIT 

;WAIT FOR READY 


;DELAY BEFORE WRITING NEXT REC. 
SET NEXT DELAY TIME 
;DECREMENT RECORDS WRITTEN COUNT 


SET # OF RECS. TO REVERSE READ 
REVERSE READ 17. RECORDS 

SET "GO" BIT 

:WAIT FOR READY 


;DECREMENT RECORD COUNT 

SET # OF RECORDS TO READ 
;SET PTR TO GAP TABLE FOR TEST 
READ A RECORD 

;SET *GO* BIT 

WAIT FOR READY 

READ NEXT RECORD 

; TURN TIMER ON 

:SET 'GO" BIT 

WAIT FOR FRAME COUNT > 0 
:GO TO TIMER & RETURN VIA R2 


SEQ 0069 
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011632 
011636 
011640 
011642 
011644 


011646 
011652 
011656 
011662 
011664 
011670 
011674 
011702 


011704 


011752 


011754 
011756 


011760 


012022 


012024 
012030 
012032 


13-JUN-78 


004737 
102446 
010421 
005300 
001355 
105037 
012700 
012701 


012104 


001367 
012700 


000401 


104400 
104000 


112737 


005215 


022710 
001004 
032711 


START OF TESTS 


005126 5$: 


001120 
000020 
001054 


004506 
001120 
000020 001120 


000020 
001054 


000004 


004376 


99$: 
100$: SCOPE 


sTEST O22-DATA TIME (800BPI) 


F 
13-JUN-78 


PC ,WAITRDY 
99$ 
R4,(R1)+ 
RO 

3$ 


@#GAP 
#16.,R0 
#GAPTBL ,R1 


(R1)+,R4 
PC ,GAPOK 
@#GAP 

#16. ,a#GAP 
6$ 


#16.,R0 
#GAPTBL,R1 
R2 


R3 
(R1)+,R2 
R3 


70 


SEQ 0070 


;WAIT FOR READY 


STORE TIME IN GAPTBL 
;DECREMENT # OF RECORDS READ 


;SET GAP # 0 


3GET GAP TICK COUNT 
CHECK TIME 

: INCREMENT GAP # 

BRANCH IF ALL GAPS NOT CHECKED 


;SETUP TO AVERAGE GAP SIZES 
;SET PTR TO TABLE 
CLEAR ‘SUM’ REGISTERS 


ADD ALL GAP SIZES TOGETHER 


;NOW DIVIDE BY 16. 
BY SHIFTING 4 PLACES RIGHT 


sMOVE AVERAGED TIMES TO R4 
> CHECK AVERAGED TIMES 


: THIS TEST MEASURES THE TIME FROM FC REG >-6400 TO ‘RDY' = 1. 


000022 001122 TST022: MOVB 
012046 
005232 


001700 000032 
005450 


163400 
040000 


#022 ,a#TSTNUM 


#3$,R2 
PC,.REWIND 
99$ 


#NORM11,TC(RS) 
3, TACMD 


#-6400. , (RO) 
2$ 


WERR,(R1) 


:SET RETURN PC FROM TIMER 
sREWIND SLAVE 


:BRANCH IF eT ON REWIND 
:SET 800 B 
s WRITE 3200. WORD RECORD 


:SET 'GO" BIT 
;WAIT FOR WRITING TO START 
:MONITOR ERROR BIT 





oD De 
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012036 001022 99$ 
012040 000771 1$ 


012042 : 

012042 004737 004250 PC, TIMON ; TURN TIMER ON 

012046 105711 : (R1) BRANCH WHEN READY SETS 
012050 100402 4$ 

012052 000163 004340 TIMER(R3) :GO0 TO TIMER & RETURN VIA R2 


012056 012700 000003 #3,RO :SET SHIFT COUNT 
RO 
5$ 
005126 PC ,WAITRDY 
99$ 


004376 PC, TIMOK CHECK TIME 
012102 000401 100$ 


012104 104400 99$: 
104000 100$: SCOPE 


TEST O23-DATA TIME (1600BP1) 
; THIS TEST MEASURES THE TIME FROM FC REG >-6400 TO ‘RDY® = 1. 
112737 000023 001122 TST023: MOVB #023, a#TSTNUM 
012204 #3$,R2 ;SET RETURN PC FROM TIMER 


005232 PC. -REWIND [REWIND SLAVE 


:BRANCH IF ERROR ON REWIND 

003700 000032 #3700, TC(RS5) :CLEAR CURRENT DENSITY 
002300 000032 #PE1600,TC(R5) :SET 1600 BPI 
005450 R3,TMCMD WRITE 3200. WORD RECORD 

WIBUF 

~3200. 

-6400. 

: WF WD 
012160 005215 (R5) SET 'GO" BIT 


012162 Stone 163400 : eo ;BRANCH WHEN WRITING STARTS 
032711 040000 #ERR,(R1) ;MONITOR ERROR BIT 
001017 99$ 

012176 000771 1$ 


012200 : 

012200 004737 004250 PC, TIMON ; TURN TIMER ON 

012204 105711 : (R1) ;BRANCH WHEN READY SETS 
012206 100402 4$ 

012210 000163 004340 TIMER(R3) :GO TO TIMER & RETURN VIA R2 


012214 006204 : R4 DIVIDE TIME BY 4 
006204 R4 
004737 005126 PC ,WAITRDY 
102403 99$ 
004737 004376 PC, TIMOK CHECK TIME 
012232 000401 100$ 


012234 104400 
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te 012236 104000 100$: SCOPE 


sTEST 024-ERASE 
THIS TEST MEASURES TIME FROM 'GO'=1 TO ‘RDY'=1. 
012240 112737 000024 001122 TST024: mMOvB #24 ,a#TSTNUM 
012330 0 ;SET RETURN PC FROM TIMER 


28,2 
005232 PC,.REWIND REWIND SLAVE 

99% BRANCH IF ERROR ON REWIND 
005070 PC,RHINIT SET NRZ 
005314 PC WRITE sWRITE A RECORD 

(R5) SET "GO" BIT 
005126 PC ,WAITRDY 

99$ 


012306 001002 #1$,a#SCPADR 
005450 1$: perhaps 


0 


0 
° ERASE 
004250 PC, TIMON ; TURN TIMER ON 
012326 005215 (R5) SET ‘GO’ BIT 


012330 105711 : (R1) ;BRANCH WHEN READY SETS 
012332 100402 3$ 
012334 000163 004340 TIMER(R3) :GO TO TIMER & RETURN VIA R2 


012340 004737 005126 : — 


012344 102403 
012346 004737 004376 PC, TIMOK 
012352 000401 100$ 


012354 104400 99$: 
012356 104000 100$: SCOPE 


TEST 025 TAPE MARK 
THIS TEST MEASURES TIME FROM ‘GO'=1 TO ‘RDY'=1. 
012360 112737 000025 001122 TSTO25: MOVvB #25, a#TSTNUM 
012430 0 #1$,R2 ;SET RETURN PC FROM TIMER 
005314 a. sWRITE A RECORD 


(R5) :SET ‘GO' BIT 
005126 PC ,WAITRDY 
99$ 
005450  enachenes 
0 
0 
WF MK 
004250 PC, TIMON TURN TIMER ON 
012426 005215 (R5) SET "GO" BIT 
012430 105711 : (R1) ;BRANCH WHEN READY SETS 
012432 100402 2$ 
012434 000163 004340 TIMER(R3) :GO TO TIMER & RETURN VIA R2 


012440 004737 005126 ; PC,WAITRDY 
012444 102403 998 





012446 
012452 


012454 
012456 
012456 
012462 
012464 


13-JUN-78 10:4 


004737 004376 
000401 


104400 
004737 005232 


102774 
104000 


START OF TESTS 


I 
phony ate ¢ DRIVE ak TIMER MACY11 30(1046) 13-JUN-78 


PC, TIMOK 
100$ 


PC,.REWIND 
99$ 


6 
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;REWIND SLAVE 
;BRANCH IF ERROR ON REWIND 


SEQ 0073 
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012466 032777 002000 166304 FINISH: BIT #SW10,aSWR ;D0 NOT SPACE PAPER 
BNE 2$ IF USER SELECTED NO OUTPUT 
005716 aaa ;OR IF IN CHAIN MODE 


000012 #10.,R0 SET LINE FEED COUNT 
001374 2 TYPE, CRLF 

DEC RO 
012516 001374 1$ 


012520 105237 001005 : @#SLVNUM SET NEXT SLAVE # 
001006 @#SLVPTR AND ITS POINTER 
000010 001005 on ;BRANCH IF LAST SLAVE (7) 


006750 @#BEGIN :BEGIN TEST ON NEXT SLAVE 

001005 : @#SLVNUM SET SLAVE #0 

001004 a#DRVNUM AND INCREMENT DRIVE # 

000010 001004 cape AND CHECK IF LAST DRIVE 
N 


012564 000137 006750 @#BEGIN 
012570 105737 001125 : — ;BRANCH IF A UNIT WAS FOUND 


BNE 
014147 TYPE ,E.UNIT 
a# INIT 
a#PSCNT : INCREMENT PASS COUNT 


E 
@#PSCNT ,R2 GET PASSCOUNT 
PC, TYPOCT AND TYPE IT 
TYPE ,CRLF 
000042 a#42,R0 :GET ACT11 RETURN ADDRESS 
Q HERE BRANCH IF NOT ACT11 


R 
SENDAD: PC, (RO) 


HERE: 
005716 ne ;BRANCH IF CHAIN MODE 


000100 166110 nae BRANCH IF NOT CONTINOUS LOOP 
006726 ; : @#RSTRT sRESTART 


012702 000137 005620 av INIT sRESTART 
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SKEW TAPE TIMING TESTS 
; THE FOLLOWING TESTS REQUIRE A SPECIALLY WRITTEN 800 BPI SKEW TAPE 
012706 012737 012714 001002 SKEWTST:MOV #TST026 ,a#SCPADR SET SCOPE POINTER 


sTEST 026- SKEW TAPE SPEED TEST-FORWARD 
sTHIS TEST READS 32°' OF TAPE (26400.-800. = 25600. FRAMES), THEN 
DIVIDES TIME BY 32. TO GET TIME TO READ 1°° (800. FRAMES) OF TAPE. 
012714 112737 000026 001122 TST026: MOVB #26,a#TSTNUM 
013000 0 2$,R2 :SET RETURN PC FROM TIMER 


#2$, 
005232 PC,.REWIND REWIND SLAVE 

99% BRANCH IF ERROR ON REWIND 
001700 000032 #NORM11,TC(RS) ;SET 800 BPI 
000010 000010 #BAI,CS2(R5) ; INHIBIT BUS ADDRESS INCREMENT 
005450 R3,a#TMCMD ;READ 32°' OF TAPE-FORWARD 


;FRAME COUNT 


012764 005215 I :SET 'GO’ BIT 


012766 022710 001440 : #800. , (RO) WAIT FOR FIRST 800 FRAMES 
012772 101375 1$ :TO BE READ 


012774 004737 004250 PC, TIMON TURN TIMER ON 
setias 012760 : tape cme ;WAIT FOR READING TO FINISH 
013006 000163 004340 TIMER(R3) :GO TO TIMER & RETURN VIA R2 


013012 012700 000005 3 + Sea :DIVIDE TIME BY 32. 


RO 
4% 
005070 PC,RHINIT : INIT DRIVE 
004376 PC, TIMOK CHECK TIME 
013034 000401 100$ 


013036 104400 99$: 
013040 104000 100$: SCOPE 


sTEST O27-SKEW TAPE SPEED TEST-REVERSE 
:THIS TEST READS FORWARD 40°° (32000. FRAMES) OF TAPE, THEN READS REVERSE 
332°" (26400.-800. = 25600. FRAMES) OF TAPE. THE TIME IS THEN DIVIDED BY 
332. TO GET TIME TO READ 1°* (800. FRAMES) OF TAPE. 
013042 112737 000027 001122 TST027: movB #27,a#TSTNUM 
013176 MOV #3$,R2 ;SET RETURN PC FROM TIMER 
005232 + Tatas REWIND SLAVE 


;BRANCH IF ERROR ON REWIND 
001700 000032 #NORM11,TC(R5) 
000010 000010 #BAI,CS2(R5) 
005450 R3,a#TMCMD ;READ FORWARD 32000. FRAMES 


WORD COUNT 
FRAME COUNT 
° READ FORWARD 
013112 005215 ;SET ‘GO’ BIT 
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013114 023710 013106 18: a#10$, (RO) 
013120 101375 1$ 


013122 004737 005070 PC,RHINIT INIT DRIVE 
004634 PC,DELAY WAIT FOR TAPE MOTION TO STOP 
001700 000032 #NORM11,TC(RS) ;SET 800 BPI 
000010 000010 #BAI,CS2(R5) : INHIBIT BUS ADDRESS INCRENENT 
005450 R3,a#TMCMD ;READ REVERSE 32°’ OF TAPE 
;READ BUFFER 
WORD COUNT 
;FRAME COUNT 
. ;READ REVERSE 
013162 005215 ;SET "GO" BIT 


013164 022710 001440 : #800. , (RO) WAIT FOR FIRST 800 FRAMES 
013170 101375 2s TO BE READ 


013172 004737 004250 PC, TIMON ; TURN TIMER ON 

013176 023710 013156 : a#11$, (RO) sWAIT FOR ALL FRAMES TO BE READ 
013202 103402 4$ 

013204 000163 004340 TIMER(R3) :GO TO TIMER & RETURN VIA R2 


013210 012700 000005 : : DIVIDE TIME BY 32. 


005070 PC,.RHINIT 
004376 PC, TIMOK 
000401 100$ 


104400 

004737 005232 PC,.REWIND REWIND SLAVE 

102774 99% ;BRANCH IF ERROR ON REWIND 
013244 104000 


013246 000137 012466 a#F INISH 
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- SBTTL PROGRAM MESSAGES 
OPERATOR INSTRUCTIONS 
013252 005015 046524 031460 M.NAM: ASCII <CR><LF>"TMO3/TU4S DRIVE FUNCTION TIMER (CZTUSAO)' 


<CR><LF>"TYPE <CR> TO TERMINATE RESPONSE & C TO RESTART’ 


052123 051101 


047105 020104 M.EOP: .ASCIZ <CR><LF>'"END OF PASS ' 
—_— 051501 


044012 051101 M.HSWR: .ASCIZ <CR><LF>"HARDWARE SWR IN USE'<CR><LF> 
051101 020105 
020122 047111 
042523 005015 


051012 ents I.REM: .ASCIZ <CR><LF>"REMOVE TMDP FROM TU45 TO BE TESTED' 


051505 042524 
054524 oats I.REG: .ASCIZ <CR><LF>*TYPE FIRST ADDRESS OF CONTROLLER ' 


051105 020040 
050131 rete I.DRVS: .ASCIZ TYPE TMO3 DRIVE #'S TO BE TESTED: ALL % 


I.SLVS: .ASCII ‘FOR TMO3 DRIVE ' 
051104 


oretas I.DRV: .ASCIZ %0- TYPE SLAVE #'S TO BE TESTED: ALL % 


013714 020072 046101 020114 
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013722 
042520 042105 I.SPD: .ASCIZ ‘SPEED TESTS? (YES/NO): NO ° 
051524 
051505 
020072 


3d M.EOT: .ASCIZ <CR><LF>"END OF TAPE*<CR><LF> 
013772 006505 000012 
;ERROR MESSAGES 
013776 005015 051124 050101 E.TRP4: .ASCIZ 
047524 


eectta E.NCON: .ASCIZ ‘NO CONTROLLER AT ADDRESS SPECIFIED'<CR><LF> 
020124 
051505 
041505 
042511 006504 


031460 042040 E.NDRV: *TMO3 DRIVE ' 
042526 000040 

053111 020105 E.NSLV: . "DRIVE ' 
046123 053101 E.DRV: . "0 SLAVE ' 


047516 020124 E.NAVA: . "0 NOT AVAILABLE FOR TEST'<CR><LF> 
040514 
047506 
052123 


046524 E.UNIT: . "NO TMO3/TU4S5 UNIT FOUND TO TEST'<CR><LF> 
032125 
052111 
042116 
042524 


000 
020124 ° "SOFT ERROR (DATA) *<CR><LF> 
020122 
024501 
020124 ° "TEST #' 


044526 is * DEVICE ERROR'<CR><LF> 
051122 


<CR><LF>"TRAPPED TO 4° 


ott ‘ "CST'<HT>"WC'<HT>'"BA'<HT>'FC'<HT>'CS2°<HT>'DS'<HT>'ER'<HT>'TC'<CR><LF> 
042011 
052011 


047440 E.HDR2: .ASCIZ ‘* OUT OF RANGE ERROR'<CR><LF> 
043516 
047522 


0445246 042515 E.TIMOV: sASCIZ <CRO<LF>"TIMER OVERFLOWED'<CR><LF> 
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014354 020122 053117 051105 
042105 


046511 E.TIMEX: «ASCIZ <CR><LF>'TIME EXPIRED WAITING FOR RDY'<CR><LF> 


042122 


050101 021440 E.GAP: .ASCIZ ‘ GAP #° 
014442 000040 


; TIME DOCUMENT LINES 


014444 025052 025052 025052 L.HDR1: .ASCIZ "eee eee ee eee eee ee eee eee AAAAAAAAAAAAAAAAAAAARAARATERARAAAEAAAREeA Tet 


025052 


030115 L. -ASCII ** TMO3 DRIVE FUNCTION TIMES- DRIVE # ° 
053111 
041516 
052040 
020055 
053111 020105 


046123 053101 L.DRV: .ASCII ‘'O SLAVE # ' 
° ASCII 'O ' 
040510 L. -ASCIZ ‘9 CHAN. SER # ' 
051105 


005015 . ASCII ' "<CRD><LF>"*#"<CR><LF> 
eASCIZ ‘'* FUNCTION'<HT><HT>' TIME (SPECIFICATION) *<HT>* TIME (ACTUAL) '<CR><LF> 


014740 024514 


014745 122 
014752 036075 
014755 101 


al 042507 L.RNG: .ASCIZ ‘RANGE=<' 


052103 040525 L.ACT: .ASCIZ ‘ACTUAL=' 
014762 036514 000 


TEST DESCRIPTOR HEADERS 
014765 052 053440 044522 A.TOO1: .ASCIZ ‘* WRITE FROM BOT'<HT> 
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014772 042524 043040 047522 
047502 004524 


053440 044522 A.T002: .ASCIZ WRITE START’ <HT><HT> 
040524 


000 
044522 A.T003: .ASCIZ WRITE SHUTDOWN’ <HT> 
052510 
053517 004516 


053440 044522 A.T004: .ASCIZ WRITE SETTLEDOWN’<HT> 
052105 
053517 


040505 A.T005: .ASCIZ READ FROM BOT'<HT><HT> 
046517 
052117 004411 


051040 040505 A.1006: .ASCIZ READ START*<HT><HT> 
051101 


042101 A.T007: .ASCIZ READ SHUTDOWN’ <HT><HT> 


A.T010: .ASCIZ READ SETTLEDOWN'<HT> 
053517 004516 


051040 040505 A.T011: .ASCIZ READ REV START*<HT> 
042522 020126 
051101 004524 


051040 040505 A.T012: .ASCIZ REV SHUTDOWN’ <HT> 
020126 
047504 


042101 A.T013: .ASCIZ REV SETTLEDOWN'’<HT> 


A.1T014:-. ASCIZ AROUND DELAY F-R'<HT> 


043040 051055 


052524 047122 A.T015: AROUND DELAY R-F*<HT> 
047125 
040514 

026522 004506 


043440 050101 A.T016: GAP SIZE-STOP HALF '<HT> 
026505 
044040 


000 
052 050101 A.1017: GAP SIZE-START HALF '<HT> 
015416 051440 055111 026505 
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015424 052123 051101 020124 


PROGRAM MESSAGES SEQ 0081 
A.T020: .ASCIZ '‘* GAP SIZE-INTERRECORD'<HT> 


A.T021: .ASCIZ GAP CONSISTANCY'<HT> 
041516 004531 


042040 052101 A.T022: .ASCIZ DATA TIME-800BPI '<HT> 
042515 
050102 


052101 A.T023: .ASCIZ DATA TIME-1600BP1 '<HT> 
042515 
041060 


051501 A.T024: . ERASE GAP TIME’<HT> 


A.T025: . WRITE FILE MARK*<HT> 
051101 004513 


052040 050101 A.1026: . TAPE SPEED-FWD*<HT> 
050123 042505 
053506 004504 


052040 050101 A.T027: . TAPE SPEED-REV'<HT> 
050123 042505 
042522 004526 

015674 


015675 15 057012 000107 L.CNTG: .ASCIZ <CRD><LF>' G' 
053523 036522 L.SWR: .ASCIZ <CR><LF>'SWR=' 


eae > 053505 L.NEW: .ASCIZ ° NEW= ° 
037412 005015 L.QUEST: eASCIZ <CR><LF>'?"<CR><LF> 


-EVEN 
RDBUF =. 
WIBUF=. 
015730 -BLKW 
000001 - END 


015726 
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010714 CNTRLU= 000025 ° 014320 ° 014660 READ poet ty 


, é ° TIB 0 
= 000017 ° 014245 . 014557 000200 004340 
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CZTUSA.P11 


13-JUN-78 1 


004350 


040000 


016330 


ERRORS DETECTED: 


TRIVEC= 


TSTNUM 
TSTTBL 
TSTO0O 
TST001 
TSTO002 
TST003 
TST004 
TSTO05 
TST006 
TST007 
TSTO10 
TST011 
TSTO12 
TST013 
TSTO14 
TSTO15 
TSTO16 


000 


0 


CZTUSA.SEQ/SOL_CZTUSA.P11 
RUN-TIME: 31 4772 SECONDS 
RUN-TIME RATIO: 


CORE USED: 


14K 


139/81=1.7 
(28 PAGES) 


000014 


011130 


SYMBOL TABLE 


TST017 


UBREAK= 


F 
13-JUN-78 


011224 


177770 


7 
13:49 PAGE 84 


SCNTRL 


040000 


002121 


002122 
012642 
002111 
000011 
002110 
000040 


002130 


SEQ 0083 





